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PREFACE 


This  report  documents  work  performed  during  the  period  May  through 
August  1977.  Major  accomplishments  include  the  development  and  implemen- 
tation of  an  image  processing  laboratory  at  White  Sands  Missile  Range 
(WSMR) , the  development  of  extensive  image  processing  and  system  software, 
the  creation  of  a library  of  twenty  digitized  video  frames  containing 
typical  WSMR  target  imagery,  and  the  implementation  of  the  New  Mexico 
State  University  (NMSU)  Real-Time  Video  Tracker  Simulation  at  WSMR. 
Principal  investigators  included  Dr.  K.  Fukunaga,  Dr.  0.  R.  Mitchell,  and 
Mr.  R.  D.  Short  of  Purdue  University;  Dr.  J.  M.  Taylor  of  NMSU;  and  Dr.  A. 
L.  Gilbert  and  Dr.  M.  K.  Giles  of  WSMR. 

Expert  assistance  in  programming  was  provided  by  Dr.  R.  Machuca  of  NMSU 
and  Mr.  D.  McGinn,  University  of  Tulsa.  Mr.  Yee  Hsun  U of  NMSU  assisted 
in  the  tracker  simulation.  Final  software  correction,  implementation  and 
documentation  were  accomplished  with  the  help  of  Mr.  J.  Hynes  and  Mr.  A. 
Garcia  of  WSMR.  Mr.  R.  Ortiz  of  WSMR  prepared  the  final  report  manuscript 
with  help  from  Mr.  M.  Ramos  and  Mrs.  R.  Granger. 

Portions  of  the  text  were  written  by  each  of  the  principal  investigators. 
Dr.  M.  K.  Giles  compiled  and  edited  the  final  report. 
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INTRODUCTION 


White  Sands  Missile  Range  (WSMR) , in  cooperation  with  New  Mexico  State 
University  (NMSU),  is  developing  a Real-Time  Video  Tracking  System  which 
will  incorporate  enough  real-time  "intelligence"  to  overcome  the  problems 
commonly  encountered  in  contrast  and  correlation  television  trackers. 
Contrast  trackers  are  easily  fooled  by  a cluttered  scene  while  correlation 
trackers  require  too  much  computation  for  reasonable  picture  sizes  and  are 
not  easily  adapted  to  significant  scene  changes.  Changing  aspect  angles, 
missile  staging,  multiple  targets,  and  obscurations  can  defeat  both  con- 
trast and  correlation  trackers.  The  Real-Time  Video  Tracking  System  uses 
high-speed  microprocessors  together  with  carefully  developed  image  proces- 
sing models  to  extract,  recognize,  and  track  the  target  under  many  types 
of  adverse  conditions. 

A team  of  research  personnel  from  Purdue  University  was  employed  at  WSMR 
during  the  summer  of  1977  in  order  to  complement  the  work  being  done  on 
the  WSMR/NMSU  Real-Time  Video  Tracking  System  and  to  help  establish  an 
image  processing  facility  at  WSMR.  The  Purdue  team  generated  new  ideas 
for  real-time  image  segmentation  and  structure  analysis  which  will  comple- 
ment and  enlarge  the  capabilities  of  the  WSMR/NMSU  system.  The  WSMR/NMSU 
Real-Time  Video  Tracking  System  is  described  in  detail  in  the  final  report 
for  Contract  DAAD07-76-C-0024 , "A  Preprototype  Real-Time  Video  Tracking 
System,"  17  January  1977. 

NMSU  personnel  contributed  to  the  summer  effort  by  providing  valuable 
technical  support  to  the  Purdue  and  WSMR  research  personnel  and  by  suc- 
cessfully implementing  the  NMSU  Real-Time  Video  Tracker  Simulation  Program 
on  the  PDP  1 1/35-Tektronix  4014  system  at  WSMR. 

This  report  contains  the  following  sections: 

SECTION  1.  IMAGE  PROCESSING  SYSTEM  DEVELOPMENT  AT  WSMR 

The  ability  to  digitize  video,  store  data  on  floppy  disks,  process 
images  using  various  techniques,  display  processed  gray  level  pic- 
tures, and  write  digital  images  on  magnetic  tape  was  developed 
for  WSMR.  This  section  discusses  the  computer  interfacing  to  peri- 
pherals and  system  programs  developed. 

SECTION  2.  SEGMENTATION  AND  STRUCTURE  ANALYSIS  FOR  REAL-TIME  TARGET 
TRACKING 


This  section  reviews  many  of  the  theoretical  concepts  developed  this 
summer.  Information  in  this  section  forms  the  basis  for  follow-on 
research  proposals. 


SECTION  3.  PREPROCESSING  AND  SEGMENTATION  ON  THE  PDP-11 

This  section  discusses  techniques  of  preprocessing  and  displays  re- 
sults using  sample  tracking  data. 

SECTION  4.  SEGMENTATION  AND  STRUCTURE  ANALYSIS  ON  THE  UNI  VAC  1108 

This  section  discusses  programs  developed  for  simulating  shape  dis- 
tortion, extracting  contour  information,  analyzing  target  character- 
istics, and  performing  data  transfer  operations  on  the  UNIVAC  1108. 

SECTION  5.  STRUCTURAL  ANALYSIS  OF  NOISY  IMAGES  USING  ONE  DIMENSIONAL 
CONTOUR  DESCRIPTORS 

This  section  is  a detailed  technical  paper  which  develops  the  pulse 
sequence  image  contour  representation,  the  image  complexity  and 
similarity  measures,  and  the  effects  of  noise  on  this  structural 
analysis  technique. 

SECTION  6.  RELATIONSHIP  OF  RESEARCH  TO  THAT  OF  NMSU 
SECTION  7.  REAL-TIME  VIDEO  TRACKER  SIMULATION 


This  section  discusses  the  major  contributions  of  NMSU  to  the  sum- 
mer effort.  A description  of  the  Real-Time  Video  Tracker  Program 
is  included. 

SECTION  8.  COMPUTER  PROGRAMS 
SECTION  9.  SAMPLE  TRACKING  IMAGERY 
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SECTION  1 


IMAGE  PROCESSING  SYSTEM  DEVELOPMENT  AT  WSMR 


A new  PDP  11/35  with  two  floppy  disk  drivers  and  a Tektronix  4014  graphics 
terminal  were  acquired  by  the  Advanced  Technology  Office,  Instrumentation 
Directorate  (ID-T)  this  summer.  Also  available  in  the  building  was  a 
PDP  11/55  and  a PDP  LSI-11,  all  with  compatible  disk  drivers. 


DIGITIZER 


) ; 
1 ' 


A custom-built  digitizer  arrived  from  ISl , Inc.,  and  was  debugged,  inter- 
faced, and  used  this  summer  for  converting  video  frames  into  two  512  x 240, 
8-bit,  pixel  fields.  The  present  configuration  for  use  of  the  system  is 
shown  in  Figure  1.1. 

The  video  tape  is  played  and  when  an  interesting  tracking  situation  occurs, 
the  video  disk  record  button  is  pushed.  A single  frame  is  stored  on  the 
disk  and  either  field  can  be  digitized  by  the  computer.  A description  of 
the  interface  and  software  for  the  digitizer  can  be  found  at  the  end  of 
this  section,  and  actual  programs  for  the  digitizer  are  given  in  Section  8. 
Sample  imagery  is  in  Section  9. 

It  seems  feasible  to  replace  the  video  train  up  to  the  digitizer  with  a 
slide  projector,  screen,  and  TV  camera.  This  would  allow  digitization  of 
sequential  tracking  frames  of  video  made  through  a ci netheodol i te  system. 
The  video  disk  is  now  being  refurbished  in  order  to  allow  disk  storage  and 
subsequent  digitization  of  sequential  frames  of  video  from  a video  tape  or 
directly  from  a television  camera. 


MAGNETIC  TAPE  OUTPUT 


A Bright  magnetic  tape  recorder  with  write-only  electrnics  was  available 
and  was  interfaced  to  the  computer.  This  allows  the  d-stribution  of 
digitized  tracking  imagery  to  other  computers  and  research  installations. 
A description  of  the  interface  and  programs  can  be  found  at  the  end  of 
this  section.  Actual  programs  for  the  magnetic  tape  output  are  given  in 
Section  8. 
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SYSTEMS  PROGRAMS 


The  following  system  programs  have  been  written;  the  actual  code  is  given 
in  Section  8 and  includes  some  documentation. 

PRINTRONIX  LINE  PRINTER  IMAGE  DISPLAY  PROGRAMS 

LPORIG 

Displays  gray  level  output  on  the  Printronix  line  printer  connected  to  the 
PDP/LSI-11.  This  will  directly  display  raw  data  written  by  any  of  the 
digitizer  programs.  It  expects  data  stored  by  240  pixel  columns.  It  uses 
a 3 X 3 dot  pattern  and  can  create  10  gray  levels.  It  requests  the  output 
file,  octal  black  level,  and  octal  increment  between  display  levels. 

LPSMAL 

Similar  to  LPORIG  but  displays  transposed  pictures  assuming  256  pixel  rows. 
It  uses  a 3 X 7 dot  pattern  (22  gray  levels)  so  that  the  aspect  ratio  Is 
correct  for  one- field  video. 

LPLARG 


Similar  to  LPSMAL  but  assumes  512  pixel  rows  and  prints  a left  and  right 
page  on  the  line  printer. 

TEKTRONIX  GRAPHICS  AND  DISPLAY  PROGRAMS 

HISTP 


Computes  and  plots  the  histogram  of  gray  levels  contained  in  an  entire 
picture  file.  The  number  of  columns  in  the  picture  and  the  number  of 
gray  levels  to  be  included  in  each  histogram  bin  are  specified  by  the 
user.  Since  each  pixel  is  quantized  in  8 bits,  256  gray  levels  are  pos- 
sible. Hence,  if  a user  specifies  one  gray  level  per  histogram  bin,  the 
program  will  count  the  number  of  pixels  present  in  the  picture  at  each  of 
the  256  gray  levels  and  will  plot  the  resulting  256  numbers  as  bars  on 
a gray  level  histogram. 

WRP256 

Writes  a gray  level  plot  to  a specified  output  device  (usually  the  Tek- 
tronix display  terminal).  The  input  picture  file  to  be  displayed  must 
be  stored  by  rows  containing  256  pixels  per  row.  Any  portion  of  the  in- 
put picture  file  may  be  displayed  at  any  selected  location  within  the 
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limits  of  the  display  screen.  The  display  is  composed  of  resolution  ele- 
ments written  with  a 4 x 4 dot  matrix  and  therefore  displays  17  half  tone 
shades  of  gray.  The  black  and  white  levels  of  the  displayed  picture  are 
selected  by  the  user. 

WRP512 


Similar  to  WRP256,  but  requires  an  input  picture  file  stored  in  sequential 
rows  with  512  pixels  per  row.  The  program  compresses  each  row  into  256 
pixels  before  it  is  displayed  by  taking  the  row  elements  two  at  a time, 
computing  the  average  intensity  of  each  pair  of  elements,  and  then  placing 
the  resulting  average  intensities  in  a 256  element  row  in  the  compressed 
picture  matrix. 

DHIST 


Computes  and  plots  the  gray  level  histogram  of  a specified  portion  of  an 
input  picture  file.  The  number  of  gray  levels  to  be  included  in  each 
histogram  bin  is  specified  by  the  user.  A half  tone  gray  level  plot  of 
the  picture  is  also  displayed  with  user  selected  dimensions  up  to  100  x 
100  pixels  for  either  256  or  512  column  picture  files.  The  gray  level 
values  for  black  and  white  in  the  displayed  half  tone  picture  are  also 
selected  by  the  user.  In  addition,  DHIST  will  display  complete  picture 
files  as  large  as  64  x 64  pixels  if  the  trimmed  picture  file  dimensions 
are  2^1  x 2'"  with  n and  m having  values  from  1 to  6.  In  this  case,  the 
exact  picture  file  dimensions  must  be  entered  as  the  dimensions  of  the 
picture  to  be  displayed. 

DATA  MANIPULATION  PROGRAMS 

TR256 


Transposes  a 256  by  240  array  of  bytes  (pixels)  stored  in  sequential 
240-element  columns  to  a 240  by  256  array  stored  in  sequential  256- 
element  rows.  Digitized  picture  files  obtained  from  the  digitizer  pro- 
grams must  be  transposed  before  any  other  operations  can  be  performed 
on  the  data  arrays.  The  only  exception  is  the  program  LPORIG  which 
displays  original  digitizer  data  on  the  Printronix  line  printer. 

TR512 


Similar  to  TR256,  but  requires  a 512  by  240  input  array  which  it  trans 
poses  to  a 240  by  512  array  of  bytes  stored  in  sequential  512-element 
rows . 
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TRIM 


i— 


Accepts  picture  files  of  any  size  up  to  240  by  512,  selects  any  specified 
portion  of  the  input  picture,  and  outputs  the  trinmed  picture  to  a speci- 
fied output  picture  file. 

TRIM2 

Extracts  120  rows  and  256  columns  of  a specified  240  by  512  picture  file 
and  writes  out  the  trinmed  picture  data  to  a specified  output  file. 

DIGITIZER  PROGRAMS 

PURPOSE 

To  store  digitized  pictures  on  a floppy  disk. 

HARDWARE  REQUIRED 

IS  I digitizer,  video  disk  or  other  "fixed"  video  input,  DRll-C  computer 
interface,  floppy  disk  in  DXl  with  room  on  it  for  picture. 

DISK  STORAGE  REQUIRED 

256  by  240  pictures  - 120  blocks  (1/4  disk);  512  x 240  pictures  - 240  blocks 
(1/2  disk).  Output  is  written  on  DXl :0RIG. DAT. 

VERSIONS 

DIG5F1  - 512  X 240  picture  from  field  1. 

DIG5F2  - 512  x 240  picture  from  field  2. 

DIG2F1  - 256  x 240  picture  from  field  1, 

every  other  column. 

D1G2F2  - 256  x 240  picture  from  field  2.  j 

( 

PROGRAMMING  LANGUAGE 

MACRO  (uses  several  system  MACRO'S).  i 

i 

j 

( 

/ 
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DESCRIPTION 

The  digitizer  is  addressed  in  single  point  mode  so  that  one  point  per 
horizontal  line  is  accessed  in  real  time.  Thus,  it  requires  at  least  512  x 
1/30  ~ 17  seconds  to  digitize  one  512  x 240  picture.  The  address  of  each 
point  to  be  accessed  is  loaded  into  the  digitizer,  and  the  vertical  address 
out  is  watched  until  it  changes,  indicating  the  digitizer  is  through  (or 
within  2 microseconds  of  being  through)  with  the  present  point.  A new  ad- 
dress is  then  fed  to  the  digitizer.  This  process  must  be  repeated  fast 
enough  so  that  the  new  address  arrives  before  the  video  signal  passes  the 
new  addressed  point.  Presently,  the  loop  is  tight  enough  for  this  to  hap- 
pen, but  any  lengthening  of  the  loop  might  increase  processing  time  by  a 
factor  of  240. 

Double  buffering  is  used  to  transfer  data  from  core  to  the  floppy  disk  so 
that  one  buffer  is  being  written  to  the  disk  while  the  other  is  being 
filled.  Very  large  buffers  are  used  to  take  advantage  of  memory  available; 
however,  this  makes  the  SAV  version  of  the  program  very  long  which  occupies 
lots  of  disk  space.  (The  source  and  object  versions  are  very  short.) 

OUTPUT  FILE  DESCRIPTION 

Data  is  output  by  column  with  240  points  per  column.  The  last  four  points 
in  each  column  are  zero  because  the  digitizer  hangs  sometimes  when  those 
last  few  points  are  addressed  (probably  depends  on  vertical  sync  width). 
Each  8-bit  pixel  is  stored  in  one  8-bit  byte  on  the  disk;  0 represents 
black;  and  255,  full  white.  Each  disk  block  holds  512  bytes  so  that  2-2/15 
columns  are  on  each  block.  The  first  column  is  the  left  side  of  the  TV 
image,  from  top  to  bottom. 

WARNING 

The  output  is  written  on  DXl :0RIG. DAT.  If  such  a file  already  exists,  it 
will  be  overwritten. 

PROGRAM  ERRORS 

BAD  FETCH  - Could  not  find  disk  handler,  probably  bad  system  disk. 

BAD  ENTER  - Could  not  open  output  file,  probably  bad  directory  on  DXl. 

WRITE  ERROR  - Did  not  write  data  properly  on  disk;  check  to  see  if  disk 
has  contiguous  space  large  enough  for  the  picture. 

If  program  hangs  while  running,  usually  the  digitizer  is  not  responding 
with  a new  address  when  loaded.  Check  (1)  power  on  switch  on  digitizer, 

(2)  cable  connection  from  digitizer  to  DRll-C,  and  (3)  sync  signal  on 
video  going  to  digitizer. 
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DIGITIZER  INTERFACE 


The  digitizer  is  cabled  to  a general  purpose  parallel  interface,  DRll-C. 

The  interface  has  three  16-bit  registers:  (1)  the  control  and  status  reg- 
ister (STAT),  (2)  the  output  buffer  register  (ADOR),  and  (3)  the  input  buf- 
fer register  (DATA). 

THE  CONTROL  AND  STATUS  REGISTER  (STAT)  (767770) 

This  register  is  wired  so  that  bit  15  represents  conversion  complete.  This 
has  turned  out  to  be  relatively  useless  since  the  flag  is  only  down  during 
the  time  the  A/D  is  actually  operating  (which  is  ' 2 microseconds  which  is 
less  than  a typical  machine  instruction  time).  Bit  7 is  the  eighth  horizon- 
tal address  output  bit  from  the  digitizer.  This  is  not  presently  used  by 
the  programs.  Bit  1 is  the  LOAD  GO  input  (loads  vertical  address)  and  is 
set  once  before  each  digitization.  Bit  0 is  the  LOAD  HORIZONTAL,  and  it  is 
set  when  a new  horizontal  address  is  in  the  address  register. 

THE  OUTPUT  BUFFER  REGISTER  (ADDR)  (767772) 

This  register  contains  data  for  the  digitizer  input.  The  low  nine  bits  (8 
through  0)  are  the  address  lines  and  are  used  to  indicate  vertical,  horizon- 
tal, or  mode  information.  Bit  9 is  LDEND  and  is  used  for  sequential  scan- 
ning. Bit  10  is  LDMODE,  and  it  is  used  to  indicate  the  digitizer  mode 
(single  point,  sequential,  or  interlaced).  Bit  15  is  the  DEX  (execute) 
flag,  and  it  is  raised  once  before  each  digitization. 

THE  INPUT  BUFFER  REGISTER  (DATA)  (767774) 

This  register  contains  data  from  the  digitizer  output  lines.  Bits  7 through 
0 represent  the  digitized  value  of  the  addressed  point.  Bits  12  through  8 
are  the  low-order  five  bits  of  the  horizontal  address.  Bits  15  through  13 
are  the  low-order  three  bits  of  the  vertical  address.  The  address  values 
are  not  changed  until  the  digitizer  video  address  matches  the  address 
loaded;  then  the  output  address  is  changed  to  match  the  address  loaded. 

These  vertical  address  bits  are  presently  used  as  the  flag  to  indicate  the 
digitizer  is  ready  for  the  next  address. 

WARNING 

The  vertical  address  is  unusual.  For  loading  purpose  (into  ADDR),  the 
high-order  bit  is  the  field;  i.e.,  addresses  0 to  3538  correspond  to  the 
first  field,  and  addresses  400g  to  453g  correspond  to  the  second  field. 
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For  reading  purposes  (from  DATA),  the  low-order  bit  is  the  field;  i.e.,  000^ 
is  first  row,  first  field;  OOI2  is  first  row,  second  field;  OIO2  is  second  ^ 
row,  first  field,  etc. 

The  wire  lists  which  follow  (Tables  1.1  and  1.2)  indicate  actual  cable  con- 
nections between  the  two  40-pin  connector  plugs  on  the  DRll-C  in  the  computer 
and  the  one  50-pin  plug  on  the  digitizer. 


MAGNETIC  TAPE  PROGRAMS 


PURPOSE 

To  write  gray-level  pictures  stored  on  floppy  disks  onto  7-track  magnetic 
tape. 

HARDWARE  REQUIRED 

Bright  tape  recorder,  DRll-C  computer  interface,  ARL  Radar  Echo  Simulator 
Box. 

VERSIONS 

MAG256  - Writes  picture  files  that  have  256  points  per  row,  240  rows. 

MAG512  - Writes  picture  files  that  have  512  points  per  row,  240  rows. 

PROGRAMMING  LANGUAGE 

MACRO. 

DESCRIPTION 

The  7-track  magnetic  tape  accepts  six  data  bits  per  tape  frame.  The  data 
must  be  fed  to  the  recorder  as  fast  as  it  will  accept  data  or  it  will  write 
end  of  record  blocks  randomly  while  ignoring  some  of  the  data.  Thus,  a 
buffer  in  core  must  be  readied  with  one  record  of  data.  This  is  then  writ- 
ten continuously  on  the  tape.  Then  a pause  occurs  while  the  next  record 

of  data  is  read  from  the  disk  to  core;  and,  at  the  same  time,  the  tape  con- 

trol unit  writes  an  end  of  record  block. 

The  program  initially  sets  bits  in  the  interface  (to  stop  tape  from  moving) 
and  then  asks  for  the  file  on  the  disk  to  be  transferred  to  tape.  After 
completion  of  writing,  it  requests  the  next  file  to  be  written. 
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TABLE  1.1 


COMPUTER  INTERFACE  CONNECTIONS 


CABLE  CONNECTORS 
COMPUTER  INTERFACE 
DRll-C 

BERG  H856  40-PIN  CONNECTORS 


CONNECTOR  NO.  1 

rn'no.  on 

DIGITIZER 

CONNECTOR  NO.  2 

PIN  NO.  ON 
DIGITIZER 

PIN 

NAME 

NAME 

PIN 

PIN 

NAME 

NAME 

TTn 

C 

OUTGO 

DINO 

2 

H 

IN02 

D0UT2 

21 

J 

GND 

GND 

16 

J 

GNO 

GND 

47 

K 

OUTOl 

DINl 

4 

K 

CSRO 

LDHOR 

3 

L 

0UT04 

DINA 

10 

L 

GND 

GND 

16 

M 

GNO 

GND 

31 

M 

IN15 

V0UT2 

35 

N 

0UT05 

DIN5 

12 

N 

IN14 

VOUTl 

37 

R 

0UT06 

DIN6 

14 

P 

IN13 

VOUTO 

39 

S 

GND 

GNO 

47 

R 

GNO 

GND 

31 

T 

0UT07 

0IN7 

15 

S 

REQ  B 

CONV.  COMP. 

29 

U 

0UT03 

DIN3 

8 

T 

GND 

GND 

47 

V 

GND 

GND 

16 

U 

IN12 

H0UT4 

44 

0UT08 

DIN8 

13 

V 

INI! 

H0UT3 

42 

X 

0UT09 

LDEND 

9 

W 

INIO 

H0UT2 

40 

Y 

GND 

GND 

31 

X 

GND 

GND 

16 

Z 

OUTIO 

LDMODE 

7 

Y 

IN09 

HOUTl 

38 

CC 

GND 

GND 

47 

Z 

I NOS 

HOUTO 

36 

DD 

CSRl 

LOGO 

11 

AA 

GND 

GND 

31 

EE 

GND 

GND 

16 

BB 

IN03 

D0UT3 

19 

JJ 

OUT  15 

DEX 

5 

CC 

IN07 

D0UT7 

32 

KK 

GND 

GND 

31 

DD 

GND 

GND 

47 

LL 

REQA 

HO  UTS 

41 

EE 

IN06 

D0UT6 

33 

MM 

GND 

GND 

47 

HH 

IN05 

D0UT5 

50 

NN 

0UT02 

DIN2 

6 

JJ 

GND 

GND 

16 

PP 

GND 

GNO 

16 

KK 

IN04 

D0UT4 

17 

SS 

GND 

GND 

31 

LL 

INOl 

DOUTl 

23 

uu 

GND 

GND 

47 

MM 

GND 

GND 

31 

PP 

GND 

GND 

47 

SS 

GND 

GND 

16 

TT 

INOO 

DOUTO 

25 

UU 

GND 

GNO 

31 
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OUTPUT  FILE  DESCRIPTION 

The  7-track  tape  is  written  at  800  bits  per  inch  (hi  density)  with  odd  parity. 
There  is  one  picture  per  file  and  within  each  file  one  line  per  record.  The 
data  is  packed  so  that  the  first  frame  contains  the  six  most  significant 
bits  of  the  first  8-bit  data  point.  The  second  frame  contains  the  last  two 
bits  plus  the  first  four  of  the  next  data  point,  etc.,  so  that  three  8-bits 
data  points  are  packed  into  four  6-bit  tape  frames.  The  picture  data  is 
stored  left  to  right,  top  to  bottom.  The  tape  is  written  in  IBM  compatible 
format. 

WARNINGS 

1.  The  first  file  on  the  tape  is  sometimes  corrupted.  It  is  safest 
to  write  the  first  file  twice. 

2.  Do  not  initiate  a hardware  reset  (done  by  hitting  START  on  the  con- 
sole or  typing  two  consecutive  CONTROL  C's)  while  the  tape  is  ONLINE.  This 
will  clear  the  DRll-C  register  and  start  the  tape  moving.  The  tape  must 
then  be  rewritten  or  nothing  else  added  since  the  tape  cannot  be  rewound  to 
the  exact  location  without  read  electronics. 

3.  Be  sure  the  ARL  Radar  Echo  Simulator  Box  is  turned  on;  the  interface 
uses  a 5-volt  supply  in  there. 


TAPE  RECORDER  INTERFACE 


The  Bright  Model  2610  7-track  write  only  tape  recorder  is  cabled  to  a 
general  purpose  parallel  interface,  DRll-C.  The  interface  has  three  16-bit 
registers:  (1)  the  control  and  status  register  (STAT),  (2)  the  output  buf- 
fer register  (ADDR),  and  (3)  the  input  buffer  register  (DATA). 

THE  CONTROL  AND  STATUS  REGISTER  (STAT)  (767760) 

This  register  is  wired  so  that  bit  7 is  the  tape  recorder  DATA  RECEIVED 
signal.  This  read  only  bit  goes  to  a zero  after  the  tape  drive  has  received 
the  data  loaded  by  the  DATA  READY  line.  Bit  1 is  the  DATA  READY  line,  it 
should  be  lowered  to  a zero  whenever  new  data  is  in  the  DATA  register  and 
ready  to  be  written  on  the  tape.  If  the  DATA  READY  line  is  not  lowered  when 
the  tape  is  in  position  for  the  next  character,  the  drive  will  assume  an 
end  of  record  and  will  proceed  to  write  an  end  of  record  block.  No  hard- 
ware connections  to  the  computer  can  presently  tell  when  this  is  happening. 
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THE  OUTPUT  BUFFER  REGISTER  (DATA)  (767762) 


This  register  holds  the  data  to  be  written  on  the  tape  in  the  lower  order 
6-bits  (5  through  0).  The  data  should  be  complemented  (zeros  and  ones 
interchanged).  Bit  15  of  this  register  is  TAPE  GAP  (tape  gap  not)  and  will 
write  an  end  of  file  (EOF)  mark  on  the  tape  when  lowered  to  a zero. 

THE  INPUT  BUFFER  REGISTER  (767764) 

This  register  is  not  used  since  the  tape  drive  does  not  have  read  capabili- 
ties . 

WARNINGS 

1.  Without  read  capabilities,  it  is  impossible  to  update  a tape.  Each 
tape  written  must  be  written  from  the  beginning  of  the  tape. 

2.  The  first  file  written  on  each  taoe  is  sometimes  bad  (extra  record 
with  parity  errors).  The  safe  thing  to  do  is  write  the  first  file  twice 
and  ignore  the  first  one  on  the  tape. 

3.  Bit  1 in  ST AT  and  bit  15  in  DATA  must  be  l‘s  for  the  tape  to  be 
stopped.  The  software  programs  do  this,  but  a hardware  INIT  pulse  (such  as 
caused  by  rebooting  or  two  consecutive  CONTROL  C's)  will  reset  the  registers 
to  zero,  starting  the  tape  to  move,  and  eliminating  the  possibility  of 
writing  anything  else  on  the  tape  (due  to  location  being  lost)  unless  the 
entire  tape  is  rewritten. 

4.  Bit  7 of  STAT  must  have  a pull-up  register  wired  to  +5  volts  on  it 
to  operate  correctly.  This  is  presently  done  at  the  connector  in  the  ARL 
Radar  Echo  Simulator  Box.  This  box  must  be  turned  on  for  the  +5  volts  to 
exist.  If  it  is  not  on,  the  drive  will  seem  OK  but  the  tape  written  will 
be  unreadable. 

The  wire  list  which  follows  (Table  1.3)  indicates  actual  cable  connections 
between  one  40-pin  connector  on  the  DRll-C  in  the  computer  and  the  connectors 
in  the  ARL  Radar  Echo  Simulator  Box. 
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TABLE  1.3.  MAGNETIC  TAPE  UNIT  CONNECTIONS 


BERG  CONNECTOR 

COMMON  CONNECTOR 

TAPE  CONNECTOR 

PIN 

PIN 

SIGNAL 

PIN 

PLUG 

NO. 

LETTER 

WAVE 

NO. 

WIRE  COLOR 

NO. 

PIN  NO. 

NAME 

3 

C 

OUTGO 

5 

Green 

BJ2 

13  Bot 

T 

8 

J 

GND 

10 

Orange 

BJ2 

8-13  Top 

GND 

9 

K 

OUTOl 

3 

Orange 

BJ2 

12  Bot 

2 

10 

L 

0UT04 

4 

Yellow 

BJ2 

9 Bot 

I 

12 

N 

0UT05 

6 

B1  ue 

BJ2 

8 Bot 

B 

15 

S 

GND 

10 

Orange 

BJ2 

8-13  Top 

GND 

17 

U 

0UT03 

2 

Red 

BJ2 

10  Bot 

8 

18 

V 

GND 

10 

Orange 

BJ2 

8-13  Top 

GND 

26 

DO 

CSRl 

8 

Gray 

BJ2 

4 Bot 

Data  Ready 

27 

EE 

GND 

10 

Orange 

BJ2 

8-13  Top 

GND 

30 

JJ 

OUT  15 

9 

Brown 

BJl 

6 Top 

Tape  Mark  Gap 

31 

KK 

GND 

10 

Orange 

BJ2 

8-13  Top 

GND 

32 

LL 

REQA 

7* 

Purple 

AJ2 

3 Bot 

Data  Received 

33 

MM 

GND 

10 

Orange 

BJ2 

8-13  Top 

GND 

34 

NN 

0UT02 

1 

Brown 

BJ2 

11  Bot 

K 

35 

PP 

GND 

10 

Orange 

BJ2 

8-13  Top 

GND 

*Data  Received 

also  wired 

to 

Pin  2-4- J in  ARL 

Radar 

Echo  Simulator  Box.  See 

p.  77  in  ARL-TR-75-1 . 


14 


SECTION  2 


SEGMENTATION  AND  STRUCTURE  ANALYSIS  FOR  REAL-TIME  TARGET  TRACKING 


INTRODUCTION 


The  completed  work  suggests  further  effort  to  design  segmentation  and 
structure  analysis  algorithms  that  operate  reliably  on  tracking  imagery 
such  as  that  supplied  by  WSMR.  Although  real-time  implementation  is 
the  ultimate  objective,  and  all  algorithms  will  be  evaluated  with 
this  in  mind,  the  goal  of  the  follow-on  effort  will  be  to  provide  a 
simulation  of  the  tracker  segmentation  and  structure  analysis  sections 
in  an  off-line  mode. 

TRACKING  SYSTEM  REQUIREMENTS 

Many  applications  require  the  precise  location,  orientation,  and  description 
of  moving  objects  in  real  time.  The  work  at  WSMR  this  summer  has  provided 
exposure  to  the  special  requirements  of  missile  and  aircraft  tracking  prob- 
lems which  are  best  solved  by  optical  imaging  tracking  systems. 

Present  optical  tracking  systems  are  "one  concept"  trackers,  using  either 
contrast  or  correlation.  The  contrast  trackers^  are  high  speed  but  lack 
the  versatility  to  follow  a target  in  complex  scenes.  The  template  match- 
ing or  correlation  trackers^  require  a lot  of  computation  for  reasonable 
window  sizes  and  are  not  easily  adapted  to  changing  aspect  angles,  missile 
staging,  and  other  conmon  scene  changes. 

The  need  for  a "smart"  optical  tracker  exists  which  would  operate  in  real 
time  and  could  adapt  to  target  orientation  and  shape  changes  (due  to  staging, 
visible  emissions,  etc.),  and  to  partial  or  total  obscuration  of  the  target 
at  times. 

Presently,  NMSU,  under  a grant  from  the  Army  Research  Office  {DAAG29-76- 
G-0231),  is  developing  a prototype  system  with  some  of  the  capabilities 
mentioned.  However,  the  technical  aspects  of  target  segmentation  and 
structure  analysis  need  to  be  studied  in  much  more  detail  in  conjunction 
with  the  use  of  actual  video  data  to  develop  a system  that  is  robust  under 
the  normal  variety  of  tracking  situations  encountered. 

T!  R.  H.  Norris,  J.  W.  Hines,  and  E.  Ashenfelder,  "A  Digital  Video  Contrast 
Tracker,"  NAECON,  1975. 

2.  C.  W.  Winsor,  "Area  Tracking  Using  Electro-Optic  Signal  Processing;  TV 
Area  Correlation  Tracking,"  SWIECO,  pp.  501-504,  1973. 
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Purdue  University  is  presently  developing  image  understanding  techniques 
under  Grant  No.  MDA90377G1  from  the  Defense  Advanced  Research  Projects 
Agency  (DARPA).  The  present  emphasis  of  the  DARPA  research  is  high  level 
information  extraction  and  symbol  minipulation  using  image  structure  and 
context.  These  techniques  are  applicable  to  the  tracking  problem;  how- 
ever, for  these  methods  to  fully  apply,  some  lower  level  techniques  must 
first  be  developed  for  preprocessing,  target  extraction,  and  target 
description. 

The  basic  ideas  for  these  processes  have  been  derived  over  the  summer  and 
must  now  be  fully  developed  and  tested  using  WSMR  video  data. 

DATA 

A system  has  been  developed  at  WSMR  this  summer  to  put  digitized  video 
data  on  IBM  compatible  format  7-track  magnetic  tape.  Twenty  digitized 
video  images  representing  some  tracking  situation  are  presently  available. 
Each  image  is  one  video  field  consisting  of  512  by  240  points  with  256 
gray  levels.  Because  the  video  interlace  is  not  used,  the  horizontal 
resolution  is  twice  that  of  the  vertical. 

Follow-on  research  would  include  digitizing  several  continuous  flights 
(e.g.,  30  frames  per  second  for  2 seconds)  and  using  this  data  for  develop- 
ment and  testing  of  algorithms. 

FOLLOW-ON  RESEARCH 

The  research  can  be  divided  into  two  major  areas;  (1)  segmentation  of  po- 
tential targets  from  the  background,  and  (2)  structure  analysis  of  the 
segmented  targets. 

Segmentation  requires  high  speed  processing  of  picture  points  to  identify 
potential  target  areas  and  more  detailed  processing  of  these  areas  to  ex- 
tract a binary  image  of  the  potential  target. 

Structure  analysis  determines  if  the  object  extracted  is  indeed  the  one  to 
be  tracked,  the  exact  location,  and  orientation  of  the  object,  and  recent 
changes  that  have  occurred  in  the  object. 

Both  the  segmentation  and  structure  analysis  sections  will  use  information 
obtained  from  previous  frames  that  is  stored  and  modified  in  real  time  to 
allow  significant  changes  in  the  tracked  object  during  a mission. 
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SEGMENTATION 


The  segmentation  of  the  target  from  the  background  is  the  most  critical 
timing  problem  for  real-time  implementation.  At  video  rates,  a new  picture 
element  (pixel)  arrives  approximately  every  100  nanoseconds.  Thus,  either 
all  initial  operations  must  be  simple  or  the  area  to  be  processed  must  be 
reduced  by  predicting  the  target  location  in  the  image  before  processing. 

It  is  the  opinion  of  the  authors  that  the  system  would  operate  more  ac- 
curately if  the  entire  picture  were  processed  every  frame.  This  would 
reduce  the  severe  requirement  of  accurate  predictior.  of  target  location 
in  the  picture  and  allow  the  system  to  acquire  ana  discriminate  interfering 
objects  before  they  come  confusingly  close  to  the  target  being  tracked. 

PREPROCESSING 

With  the  large  variety  of  incoming  images,  it  is  often  necessary  to  do  some 
preprocessing  to  make  the  system  more  invariant  to  changes  in  lighting, 
viewing  angle,  and  resolution.  It  is  also  useful  to  enhance  those  aspects 
of  the  image  which  indicate  the  presence  of  targets  (such  as  edges  and  tex- 
ture of  man-made  objects).  The  following  preprocessing  operations  will  be 
investigated;  (1)  a logarithmic  input  transformation,  (2)  a two-dimensional 
median  filter,  (3)  a two-dimensional  human  visual  system  (HVS)  filter,  and 
(4)  averaging. 

These  processes  are  all  window  operations  that  can  be  performed  in  real  time 
over  the  entire  incoming  video  picture.  The  output  of  these  processes  will 
allow  the  selection  of  suitable  potential  target  regions  for  more  detailed 
processing. 

Logarithmic  Input  Transformation 

Working  with  the  densities  (log  intensities)  allows  the  system  to  be  more 
invariant  to  illumination  and  lens  opening  changes  since  these  produce 
multiplicative  effects  in  the  intensity  image  and  additive  effects  in  the 
density  image.  The  logarithm  also  emphasizes  the  detail  in  the  darker 
areas  of  the  image  which  is  especially  useful  to  the  texture  processing 
algorithms  described  later.  The  logarithm  is.also  an  approximation  to  the 
visual  system's  action  on  an  incoming  pattern'^.  Future  research  should 
indicate  whether  this  nonlinear  operation  is  appropriate  or  necessary  for 
typical  video  tracking  data. 

Two-Dimensional  Median  Filter 


The  median  filter  allows  for  video  dropouts  including  single  point  or  single 
line  mistakes  in  the  analog  video  chain  or  the  digitizer.  A simple  median 

T.  T.  N.  Cornsweet,  Visual  Perception.  Academic  Press,  New  York,  1970. 
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filter  replaces  the  center  point  of  each  3x3  window  with  the  median  of 
all  9 points  in  the  window.  This  nonlinear  process  eliminates  high  fre- 
quency noise  but  preserves  monotonic  edges  precisely. 

Shown  in  Figure  2.1  is  digitized  video  of  an  airplane  with  the  contrast 
enhanced.  The  result  of  processing  this  with  a 3 x 3 median  filter  is  shown 
in  Figure  2.2.  Notice  that  edges  and  objects  are  preserved  but  the  noise  is 
reduced  and  the  data  seems  to  be  more  correlated. 

Figures  2.3  and  2.4  show  the  same  preprocessing  effects  on  a Cruise  missile. 
The  same  process  is  shown  in  Figures  2.5  and  2.6  on  a missile  target  with 
a large  plume. 

Continued  research  should  indicate  the  advantages  and  disadvantages  of  this 
preprocessing  operation  for  the  video  tracking  data  supplied  to  us. 

Two-Dimensional  Human  Visual  System  Filter 

It  is  well  known  that  the  HVS  responds  to  incoming  images  with  an  approximate 
logarithmic  transformation  followed  by  a spatial  and  temporal  bandpass  fil- 
tering operation.  The  usefulness  of  such  a spatial  bandpass  filter  in  ex- 
tracting objects  for  tracking  will  be  investigated. 

A suitable  filter  function  which  is  to  be  convolved  with  an  input  image  is 
shown  in  Table  2.1.  The  values  are  chosen  to  make  computation  of  the  frac- 
tional values  easy  for  real-time  implementation.  Because  the  video  data 
has  twice  the  resolution  in  the  horizontal  direction  than  in  the  vertical 
(only  one  video  field  is  processed  at  a time),  the  HVS  filter  is  modified  as 
shown  in  Table  2.2.  Both  filters  have  a dc  response  of  0.5  and  a gain  of  7.5 
for  a small  object  which  just  covers  the  plus  area.  The  filter  shown  in 
Table  2.2  was  used  to  produce  Figure  2.7  using  Figure  2.6  as  the  input.  Note 
that  edges  are  emphasized  and  that  the  missile  (above  the  plume)  is  enhanced. 

Future  research  should  indicate  the  appropriateness  of  such  a filter  and  the 
parameters  best  suited  to  video  tracking  data. 

Averaging  Filter 

The  effects  of  averaging  on  images  over  a small  window  tend  to  blur  the  image 
slightly,  but  can  be  of  help  in  segmenting  an  image  by  thresholding.  For 
example,  the  use  of  a 5 x 3 averaging  window  on  Figures  2.2  and  2.4  produces 
the  results  shown  in  Figures  2.8  and  2.9,  respectively.  The  general  useful- 
ness of  this  combination  median  and  averaging  process  will  be  examined  (the 
median  filter  removes  bad  points  before  they  can  be  smeared  by  the  averager). 
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TABLE  2.1.  TWO-DIMENSIONAL  HVS  FILTER  FUNCTION 
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0 

0 

0 
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-.25 
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-.25 

-.25 

+ .25 
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0 

0 

0 
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-.25 
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-.25 

0 

25 
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+ 1.0 
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+ 1.0 

+ .25 
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-.25 

0 

-.25 

-.25 

+ .5 

+ 1.0 

+ .5 

-.25 

-.25 

0 

0 

0 

-.25 

-.25 

+ .25 

-.25 

-.25 

0 

0 

0 

0 

0 

-.25 

-.5 

-.25 

0 

0 

0 

0 

0 

0 

0 

-.25 

0 

0 

0 
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TABLE  2.2.  MODIFIED  HVS  FILTER  TO  ALLOW  HALF 
RESOLUTION  IN  VERTICAL  DIRECTION 
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0 

0 

-.25 

-.75 

-.25 

0 

0 

0 i 

0 

-.25 

-.5 

+ .25 

+ 1.25 

+ .25 

-.5 

-.25 

0 1 

25 

-.5 

+ .25 

+ 1.0 

+ 1.5 

+ 1.0 

+ .25 

-.5 

-.25  1 

0 

-.25 

-.5 

+ .25 

+1.25 

+ .25 

-.5 

-.25 

0 I 

0 

0 

0 
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-.25 

0 

0 
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REGION  GROWING  USING  WINDOW  STATISTICS 

After  preprocessinq  the  input  video  data,  potential  target  regions  must  be 
extracted.  Depending  on  the  data,  this  task  may  be  a simple  thresholding 
operation  or  it  may  be  a more  complex  extraction  procedure.  Initially, 
the  segmentation  will  be  formulated  in  terms  of  measuring  statistics  over 
each  n X m window  in  the  preprocessed  pictures  and  assigning  each  window 
to  one  of  several  classes. 

The  measurements  which  can  be  made  on  an  n x m window  range  from  a simple 
histogram  of  the  data  points  to  a representation  in  (n) (m)-dimensional 
vector  space.  Of  course,  the  simplest  representation  that  will  give  a 
proper  segmentation  is  the  most  desirable.  This  selection  can  only  be  made 
after  experience  is  gained  by  segmenting  a large  amount  of  typical  tracking 
data . 

Once  a window  parameter  is  selected,  points  must  be  clustered  to  give  appro- 
priate regions.  This  clustering  must  be  based  upon  some  distance  measure 
between  two  window  parameters.  The  following  window  parameters,  distance 
measures,  and  clustering  techniques  will  be  investigated. 

Ejrst  Order  Measure 

The  histogram  of  the  points  in  each  window  will  be  used  as  the  window  param- 
eter. The  distance  measure  will  be  the  Bayes  error  overlap  between  the  two 
modified  histograms; 


d = 1 - I min[f(x)*h^(x)  , f(x)*h2(x)]dx  , (1) 

where 

h.|(x)  and  h2(x)  are  the  gray  level  histograms  over  the  two  windows,  and 

f(x)  is  a smoothing  and  normalizing  function  to  be  convolved  with  each 
histogram. 


The  smoothing  function  is  chosen  so  that  the  modified  histogram  has  an  area  j 
of  unity  and  is  smoothed  so  that  the  distance  measured  by  Equation  (1)  is  j 
not  adversely  affected  by  the  discrete  nature  of  the  original  histograms.  j 

An  example  is  shown  in  Figures  2.10  and  2.11.  The  x's  in  Figure  2.10  j' 
represent  the  histogram  from  window  1 and  the  O's  represent  the  histogram  {j 
from  window  2.  The  functions  p^Cx)  and  P2(x)  in  Figure  2.11  represent  the  ii 
smoothed  histograms.  The  shaded  region  is  the  integral  in  Equation  (1).  |i 
This  area  is  equivalent  to  the  probability  of  error  in  estimating  to  which  i 
of  two  density  function  estimates  a sample  gray  level  belongs.  | 

' 
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The  distance  measure  is  now  used  to  cluster  windows  that  are  close  together 
to  form  segmented  regions.  Prior  frame  information  should  be  useful  here 
to  provide  initial  cluster  groupings.  Windows  that  are  more  than  a thresh- 
old distance  away  from  all  known  clusters  will  be  used  to  form  new  clusters. 

Second  Order  Measure 

In  tracking  situations  where  first  order  measures  do  not  allow  proper  segmen- 
tation, a second  order  measure  may  be  applied.  A modified  joint  histogram 
relating  pairs  of  points  within  a window  will  be  assessed: 

p(x,  y)  = f(x,  y)*h(x,  y)  , (2) 

where 

h(x,  y)  is  the  joint  histogram  of  pairs  of  adjacent  points  (co-occurrence 
matrix),  and 

f(x,  y)  is  a two-dimensional  smoothing  and  normalizing  function. 

4 

The  co-occurrence  matrix  has  been  applied  to  texture  analysis  and  has  shown 
encouraging  results.  However,  instead  of  calculating  parameters  on  the 
matrix  as  is  done  in  Reference  4,  the  matrix  itself  will  be  used  in  a two- 
dimensional  version  of  the  overlap  error  measurement  of  distance. 


d = 1 - //  min[p^(x,  y)  , P2{x,  y)]dxdy 


(3) 


Higher  order  measures  are  probably  impractical  but  could  be  investigated  if 
these  initial  measurements  show  obvious  shortcomings. 

LOCAL  EXTREMA  INFORMATION 

The  detection  of  local  gray  level  extrema  in  an  image  has  shown  to  be  use- 
ful in  texture  classification  and  image  segmentation^. 6_  jhe  detection  al- 
gorithm for  this  operation  is  as  follows. 

ft.  M.  Hanalick,  K.  Shanmugan,  and  I.  Dinstein,  "Textural  Features  for 
Image  Classification,"  IEEE  Trans,  on  Systems,  Man,  and  Cybernetics, 
SMC-3,  pp.  610-621,  November  1973. 

5.  0.  R.  Mitchell,  C.  R.  ^1yers,  and  W.  Boyne,  "A  Max-Min  Measure  for  Image 
Texture  Analysis,"  IEEE  Trans,  on  Computers,  Vol . C-26,  pp.  408-414, 
April  1977. 

6.  S.  G.  Carlton  and  0.  R.  Mitchell,  "Image  Segmentation  Using  Texture  and 
Gray  Level,"  Proceedings  of  the  IEEE  Conference  on  Pattern  Recognition 
and  Image  Processing,  pp.  387-391,  June  1977. 
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In  a n X m window,  compare  the  gray  level  of  the  center  point  with  those  of 
its  two  vertical  neighbors.  If  it  is  above  both  neighbors,  the  center  point 
is  a local  maximum  in  the  vertical  direction.  If  this  is  the  case,  compare 
the  center  point  with  each  point  along  each  vertical  direction  until  a gray 
level  is  encountered  which  is  above  the  center  point's  value  or  until  the 
edge  of  the  window  is  encountered.  The  largest  differences  between  gray 
levels  in  each  vertical  direction  are  then  compared  and  the  smallest  of  the 
two  is  retained  as  the  size  of  the  local  maximum  in  the  vertical  direction. 
An  example  is  shown  in  Table  2.3  for  a 5 x 7 window. 


TABLE  2.3.  SAMPLE  GRAY  LEVELS  FOR  EXTREMA  DETECTION 


36 

40 

47 

30 

24 

33 

34 

30 

32 

36 

36 

40 

32 

40 

30 

42 

46 

45 

43 

35 

36 

40 

33 

47 

32 

34 

42 

50 

42 

40 

30 

30 

20 

45 

36 

The  center  value  is  45.  The  47  ends  the  search  in  the  top  direction  and 
the  50  ends  the  search  in  the  bottom  direction.  The  range  is  15  above  and 
12  below.  Therefore,  the  center  point  is  a local  maximum  in  the  vertical 
direction  of  size  12.  If  the  point  is  a local  minimum  instead  of  a maxi- 
mum, the  process  is  down  in  the  same  way  interchanging  the  above  and  be- 
low comparison  tests. 

This  process  is  also  done  in  the  horizontal  direction.  In  the  example  of 
Table  2.3,  the  center  point  is  not  a local  extreme  in  the  horizontal  di- 
rection. If  a point  is  a local  extreme  in  both  horizontal  and  vertical 
directions,  only  the  largest  of  the  two  is  retained  at  that  location. 

The  extrema  detection  process  is  equivalent  to  local  maximum  and  minimum 
determination  following  hysteresis  smoothing  of  various  amounts. 

Figure  2.12  shows  the  output  of  such  an  operation  on  the  image  in  Figure 
2.7.  Extrema  size  is  indicated  by  the  gray  level.  No  distinction  is  made 
in  the  figure  between  maxima  and  minima  or  between  horizontal  or  vertical 
extrema. 
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Note  that  the  edges  emphasized  by  the  HVS  filter  now  are  marked  by  the 
extrema.  The  missile  orientation  can  be  extracted  from  its  edge  informa- 
tion, however,  the  algorithm  must  be  high  level  enough  so  that  the  missile 
edge  is  extracted  and  not  the  plume.  (The  missile  orientation  angle  may 
not  be  the  same  as  its  flight  direction.) 

Also,  the  texture  of  various  regions  can  be  characterized  by  the  types  and 
number  of  extrema  present.  The  region  characterization  may  be  useful  for 
background  classification  and  for  plume  identification.  Parameters  for 
this  measurement  are  extracted  by  counting  the  number  of  various  size  ex- 
trema within  a window  surrounding  each  point. 

EDGE  INFORMATION 

The  HVS  is  very  sensitive  to  edges  and  lines^.  Patterns  containing  edges 
are  much  more  visible  than  those  containing  the  same  signal  power  but 
lacking  well-defined  edges.  Also,  many  objects  to  be  tracked  are  distin- 
guished from  natural  environment  backgrounds  by  the  presence  of  edges.  It 
would  seem  appropriate  that  one  tool  that  should  be  included  in  the  tracker 
repertoire  is  the  ability  to  detect  and  use  edge  information. 

Edge  information  may  be  included  as  follows:  when  edges  are  passed  through 
the  HVS  filter  and  the  local  extrema  detector,  they  become  connected  local 
extrema.  A processor  will  look  for  connected  local  extrema  and  label  these 
extrema  to  be  edge  extrema  as  opposed  to  texture  extrema.  These  edge  ex- 
trema can  then  be  used  as  follows: 

1.  the  presence  of  an  edge  will  enhance  the  possibility  of  a region 
being  listed  as  a potential  target  area,  and 

2.  windows  which  contain  edges  will  be  modified  so  that  edge  points 
control  the  window  shape. 

Consider  Figure  2.13  as  an  example.  In  this  figure,  detected  edge  points 
are  marked  with  an  "E."  To  perform  a window  operation,  scanning  starts  at 
the  center  point  and  moves  in  the  numbered  directions,  stopping  at  an  edge 
point  or  at  the  window  edge.  This  allows  nonrectangular  windows  along  the 
boundary  of  targets. 

EXTRACTION  OF  BINARY  IMAGES 

The  purpose  of  all  preprocessing  and  segmentation  techniques  described  in 
prior  sections  is  to  produce  binary  images  which  are  potential  targets  for 
tracking.  Information  to  be  used  in  the  selection  of  binary  images  will 
be: 


7.  Cornsweet,  op.  cit. 
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1.  Segmented  regions  from  Region  Growing  Using  Window  Statistics 
Section. 

2.  Texture  information  from  Local  Extrema  Information  Section. 

3.  Edge  Information  Section. 

4.  Prior  frame  information. 

The  initial  protocol  for  potential  target  selection  is  shown  in  the  flow 
chart  i n Figure  2.14. 

STRUCTURE  ANALYSIS  OF  BINARY  IMAGES 


The  purpose  of  structure  analysis  in  this  study  is  to  find  structure 
differences  among  various  targets  such  as  airplanes,  helicopters,  missiles, 
and  balloons.  Here,  it  is  assumed  that  the  target  is  separated  from  back- 
ground by  the  segmentation  processes  of  the  previous  sections  and  all  tar- 
get points  are  represented  as  1 's  in  a binary  image.  The  complexity  of  a 
binary  image  may  be  used  to  characterize  the  structure.  This  feature  and 
its  variations  will  be  simple  enough  for  real-time  implementation,  yet 
complex  enough  to  identify  the  differences  of  these  targets  even  with 
various  viewing  angles. 

A FOURIER  DESCRIPTOR 

A binary  image  may  be  characterized  by  the  properties  of  its  contour.  Let 
us  express  the  angle  difference  of  two  tangents  at  S and  A in  Figure  2.14 
as  a function  of  e,  the  contour  length  between  these  two  points.  An  example 
of  the  function  o(c,)  is  shown  in  Figure  2.15.  Thus,  a two-dimensional  image 
contour  is  converted  into  a one-dimensional  curve.  The  Fourier  transform 
of  this  curve  has  been  called  a Fourier  descriptor8»9,l0  jhe  Fourier  de- 
scriptor has  several  advantages  as  an  expression  of  an  image.  These  are 

1.  invariant  under  rotation  of  the  image, 

2.  invariant  under  translational  shift  of  the  image, 

R.  C.  T.  Zahn  and  R.  Z.  Roskies,  "Fourier  Descriptors  for  Plane  Closed  Curves," 
IEEE  Trans,  on  Computers,  Vol.  C-21 , pp.  269-281,  March  1972. 

9.  G.  H.  Granlund,  "Fourier  Preprocessing  for  Hand  Print  Character  Recognition," 
IEEE  Trans,  on  Computers,  Vol.  C-21,  pp.  195-201,  February  1972. 

10.  E.  Persoon  and  K.  S.  Fu,  "Shape  Discrimination  Using  Fourier  Descriptors," 
IEEE  Trans,  on  SMC,  pp.  170-179,  March  1977. 


26 


3.  selection  of  the  starting  point  S appears  only  as  a phase  shift,  and 


4.  invariant  under  scale  changes  of  the  image  if  is  normalizrd  by 
the  entire  contour  length  L,  such  as  t = 2-f/L. 

Figure  2.16  shows  (t)'s  for  various  images.  Figure  2.16  also  shows  an 
alternative  function  de/dt  which  will  be  used.  As  is  seen  in  the  figures, 
in  de/dt,  all  convex  and  concave  angles  appear  as  negative  and  positive 
pulses,  respectively.  The  existence  of  these  pulses  has  been  considered 
by  past  researchers  as  a disadvantage  of  the  Fourier  descriptor  because  of 
the  high  frequency  components  of  a pulse.  However,  as  the  figures  illus- 
trate, this  pulse  sequence  may  be  used  to  entirely  characterize  an  image 
contour. 

Before  defining  the  complexity  of  a binary  image  and  its  variations  in  terms 
of  de/dt,  let  us  look  at  some  properties  of  de/dt.  Figure  2.17  shows  that 
when  an  image  has  a smooth  contour,  d'/dt  will  be  a continuous  curve.  The 
locations  of  the  peaks  and  the  areas  under  the  peaks  in  this  figure  correspond 
to  the  locations  and  heights  of  the  pulses  in  Figure  2.16. 

Figure  2.18  shows  how  to  treat  unclosed  line  images.  These  images  may  be 
traced  twice  as  if  the  lines  have  a finite  thickness. 

COMPLEXITY  MEASURE 

Since  the  function  d'Vdt  carries  all  the  information  about  an  image  contour, 
d'/dt  or  its  Fourier  transform,  FEd-’/dt],  may  be  used  for  structure  analysis 
of  binary  images.  The  advantage  of  using  dn/dt  is  that  de/dt  is  a one- 
dimensional function  rather  than  two,  and  all  techniques  developed  for  wave- 
form analysis  can  be  utilized.  However,  it  appears  that  de/dt  or  F[de/dt] 
are  still  too  complex  for  real-time  testing,  and  that  there  is  a need  to 
extract  simpler  features  from  it. 

The  first  and  simplest  feature  extracted  from  de/dt  would  be  the  complexity 
measure  defined  as 

C = /q"  |-^|dt  - 2.  . (4) 

Noting  that  / de/dt  dt  = -2rr  for  all  closed  contours.  Equation  (4)  becomes 
zero  for  all  convex  images.  When  an  image  includes  concave  angles.  Equation 
(4)  becomes  twice  the  sunmation  of  all  concave  angles  in  that  image.  That 
is,  the  proposed  complexity  measure  indicates  the  number  and  size  of  the 
concave  angles.  Figure  2.19  shows  these  concave  angles  of  various  target 
images.  Obviously,  one  cannot  expect  that  a single  number  can  represent  many 
properties  of  an  image.  However,  measuring  concave  angles  seems  to  be  a 
reasonable  thing  to  do  as  the  first  order  characterization  of  do/dt,  and 
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it  looks  as  if  C of  Equation  (4)  could  be  sufficient  to  classify  complex 
images  such  as  airplanes  and  helicopters  from  simple  ones  such  as  missiles 
and  bal loons . 

DESCRIPTION  OF  BINARY  IMAGES 

When  the  complexity  measure  is  not  sufficient  to  classify  targets,  more 
information  must  be  extracted  from  d-’/dt.  A comparison  of  Figures  2.16c 
and  2.17  shows  that  the  pulse  sequence  of  Figure  2.16c  is  a simpler  rep- 
resentation of  the  image  than  the  continuous  curve  of  Figure  2.17.  In- 
deed, the  pulse  sequence  representation  would  provide  a good  second  char- 
acterization of  an  image.  Thus,  when  an  image  and  the  corresponding 
d /dt  are  given  as  in  Figure  2.17,  a procedure  is  needed  to  extract  d'Vdt 
of  Figure  2.16c  from  d-^/dt  of  Figure  2.17. 

This  feature  extraction  procedure  is  also  related  to  the  problem  of  noise 
elimination.  As  is  seen  in  Figure  2.20a,  an  image  contour  is  normally  dis- 
torted by  noise.  This  noise  appears  in  d’^/dt  as  a pulse  sequence  whose 
pulse  heights  are  comparable  with  signal  levels,  but  whose  pulse  intervals 
are  much  shorter  than  the  intervals  of  signal  pulses.  Because  of  the  high 
frequency  characteristics,  the  noise  may  be  eliminated  by  using  a low  pass 
filter.  But  the  output  of  the  filter  becomes  a smoothed  continuous  curve. 
Thus,  a sharpening  filter  must  follow  the  low  pass  filter  to  extract  the 
pulse  sequence  from  the  smoothed  curve. 

The  proposed  sharpening  filter  locates  pulse  positions  according  to  the 
location  of  the  peaks  of  the  smoothed  curve  and  determines  the  pulse  heights 
by  the  areas  under  the  curve.  Figure  2.20b  shows  an  example  of  extracting 
a clean  triangle  from  a noisy  one. 

SIMPLIFICATION  OF  IMAGE  DESCRIPTION 

In  order  to  represent  an  image  contour  by  a pulse  sequence,  the  image  con- 
tour must  be  constructed  by  line  segments.  However,  it  is  not  clear  how 
many  line  segments  are  really  needed  to  construct  the  essential  structure 
of  an  image.  Figui  shows  an  example  in  which  an  airplane  is  described 

by  various  pulse  sequc  e'  Figure  2.21a  was  extracted  from  a noisy  air- 
plane picture  through  the  niters  of  Figure  2.20.  Figure  2.21b  was  obtained 
by  combining  all  co-  /ex  p Ises  between  adjacent  concave  pulses.  Thus,  the 
concave  angles  were  preserved.  Furthermore,  making  all  convex  angles  -180° 
and  all  concave  angles  *-'0°,  the  skeleton  of  Figure  2.21c  results.  Obviously, 
each  stage  simplifies  the  pulse  sequence.  If  the  objective  is  to  distinguish 
an  airplane  from  a missile,  a very  simplified  pulse  sequence  might  suffice. 

On  the  other  hand,  complex  pulse  sequences  might  be  needed  to  classify  dif- 
ferent airplanes.  The  classification  of  various  targets  in  terms  of  the 
complexity  of  pulse  sequences  is  an  area  which  merits  additional  investiga- 
tion. 
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SIMILARITY  MEASURE 

The  classification  of  targets  requires  a similarity  measure  or  distance 
measure  between  two  images.  The  amplitude  characteristic  of  F[da/dt] 
has  been  selected  for  the  following  reasons: 

1.  The  distance  is  invariant  under  various  image  variations  such  as 
rotation,  shift,  scale  change,  and  the  change  of  the  starting  point. 

2.  It  is  easy  to  eliminate  the  effect  of  noise  by  cutting  off  the  high 
frequency  components. 

Letting  g.(t)  = do^/dt  and  = F[g^.{t)],  the  distance  between  g-jlt)  and 

and  g2(t)  may  be  defined  as 

92)  = /o°  [|Gi(-)l  - lG2(^)|]^du, 

M 

[|G,(k)l  - iG.(k)|]^  . (5) 

k=n  ' 

The  second  line  of  Equation  (5)  is  obtained  because  g-(t)'s  are  always 
periodic  with  period  2^..  ^ 

When  images  are  characterized  by  relatively  small  numbers  of  line  segments 

o 

g^-(t)’s  are  pulse  sequences.  Thus,  G^.(u)  and  subsequently  d (g^, 

can  be  easily  obtained  even  by  hand  calculation  resulting  in  a distance 
table  among  various  targets  with  many  viewing  angles.  When  noise  is  added 
to  an  image  contour,  the  noise  in  the  d^/dt  domain  may  be  characterized  as 

p 

a pulse  sequence.  The  probability  distribution  of  d (g^.(t)  + n(t),  g-{t)) 

may  then  be  studied  in  order  to  determine  the  amount  of  noise  which  can  be 
tolerated  during  the  classification  of  two  specific  targets.  Figure  2.22 
shows  some  of  the  typical  noise  patterns.  It  appears  that  any  typical 
noise  can  be  approximated  by  combinations  of  these  patterns,  thus  providing 
a foundation  on  which  to  discuss  the  effects  of  noise  on  a theoretical  basis. 
The  problem  of  structure  analysis  of  noisy  images  is  presented  in  greater 
detail  in  Section  5. 
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Figure  2.2.  Median  Filter  Output  from  Figure  2.1 


Figure  2.3.  Cruise  Missile  Original 
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Figure  2.5.  Missile  Original 
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Figure  2.9.  Result  of  Averaging  Figure  2.4  over  a 5x3  Window 


Figure  2.10.  Two  Histograms  from  Two  Windows 


Figure  2.11.  Smoothed  Histograms  and  Resulting  Overlap  Error 
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SECTION  3 


PREPROCESSING  AND  SEGMENTATION  ON  THE  PDP-11 


Several  programs  have  been  written  and  some  preliminary  results  derived 
on  the  PDP  computer  using  digitized  video  data.  Some  of  the  results  were 
reported  under  Segmentation  in  Section  2.  The  preprocessing  programs  writ- 
ten are  MEDIAN  (median  filtering),  MAX256  and  MAX512  (local  extrema  detec- 
tion), AVG  (window  averaging),  and  HVS256  (HVS  filtering).  Actual  source 
codes  are  given  in  Section  8. 

The  MEDIAN  and  AVG  programs  use  a collection  of  linked  FORTRAN  subroutines 
that  allow  processing  on  any  size  window  over  any  size  picture.  This  cho- 
ice can  be  made  at  run  time.  The  MAX256,  MAX512,  and  HVS256  were  developed 
separately  and  have  compiled  picture  and  window  sizes.  Following  is  a dis- 
cussion of  each  program  separately. 


MEDIAN 


MEDIAN  outputs  a picture  in  which  each  point  is  replaced  by  the  median  of  all 
points  in  a designated  size  window  surrounding  it.  Actually,  the  program 
requests  the  filter  order,  which  is  the  point  to  be  selected  after  sorting 
all  window  points  (for  the  median  of  a 3 x 3 window,  select  order  = 5).  The 
input  file,  output  file,  picture  size,  window  size,  and  filter  order  are 
all  requested  at  run  time. 


AVG 


Similar  to  MEDIAN  except  all  points  in  the  designated  size  window  are 
averaged  to  determine  each  output  point. 


HVS256 


Outputs  a picture  which  is  the  convolution  of  the  input  picture  and  the 
two-dimension  HVS  filter  function  shown  in  Table  2.2  of  Section  2.  The 
output  is  truncated  between  0 and  255  (8-bits  per  point).  The  input  and 
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output  files  are  requested  at  run  time.  The  input  picture  must  have  256 
pixels  per  row.  The  number  of  rows  does  not  matter. 


MAX256 


Locates  local  extrema  in  the  input  picture  and  outputs  their  size  as  an 
output  picture.  See  Local  Extrema  Information  in  Section  2 for  a descrip- 
tion of  this  process.  The  sizes  are  multiplied  by  2 and  truncated  at  255 
(8  bits).  The  low  order  2 bits  are  used  to  indicate  whether  the  extremum 
is  a maximum  or  minimum  and  whether  it  is  a horizontal  or  vertical  extremum. 
The  window  size  is  presently  compiled  to  be  12  vertical  and  24  horizontal 
points  in  each  direction  from  the  center  point.  The  input  and  output  files 
are  requested  at  run  time.  The  input  picture  must  have  256  pixels  per  row. 
The  number  of  rows  does  not  matter. 


MAX512 


Same  as  MAX256,  except  the  input  picture  must  have  512  pixels  per  row. 


PROCESSING  RESULTS 


Sample  processing  results  that  were  not  used  in  Section  2 are  now  presented. 
Appropriate  conments  are  included  in  the  captions.  Figures  3.1  through 
3.17  are  half  tone  gray  level  displays  printed  on  the  Printronix  line 
printer  using  a 3 x 7 dot  matrix  to  produce  22  gray  levels. 
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Figure  3.2.  Human  Visual  Filter  Operation  on  Figure  3.1 
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SECTION  4 


SEGMENTATION  AND  STRUCTURE  ANALVSIS  OF  THE  UNIVAC  1108 


The  RTll  preprocessing  programs  used  on  the  POP  11/35  system  are  used  to 
produce  binary  images  which  contain  potential  targets  for  tracking.  Proces- 
sing programs  written  for  the  1108  are  used  primarily  to  analyze  the  struc- 
ture of  the  binary  images.  A tape  copying  routine  is  also  included  in 
the  1108  software  package.  Printouts  of  the  source  codes  are  included 
in  Section  8 with  some  documentation.  A brief  description  of  the  major 
programs  is  presented  in  this  section. 


IMAGAN  (IMAGE  AND  NOISE  SIMULATION) 


This  program  adds  a noisy  Markov  field  to  an  input  image  boundary  and 
generates  a noisy  image.  It  then  performs  a thresholding  operation  and 
prints  out  the  resulting  binary  image.  Finally,  it  traces  the  boundary 
of  the  noisy  image  and  stores  it  for  additional  analysis. 


PR0G2  (STRUCTURE  ANALYSIS  OF  IMAGE  BOUNDARY) 


This  program  generates  a one-dimensional  angle  function  o(e)  from  the  input 
boundary  points  of  a noisy  image  obtained  from  IMAGAN  or  PICTPR.  It  then 
extracts  the  pulse  sequence  o(f)  from  n(j)  and  runs  it  through  a low  pass 
Gaussian  filter  with  a specified  cutoff  frequency  to  remove  the  noise 
pulses.  Finally,  it  calculates  the  Fourier  coefficients  of  the  filtered 
angle  pulse  function. 


PICTPR  (TARGET  BOUNDARY  EXTRACTION  FROM  REAL  IMAGE  DATA) 


This  program  reads  a specified  window  of  data  from  a picture  file  stored 
on  7-track  magnetic  tape.  It  then  selects  a specified  number  of  gray 
level  thresholds,  prints  out  the  picture,  and  finally  generates  an  edge 
contour  of  the  target  which  can  be  analyzed  using  PR0G2. 
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COPY  (TAPE  COPY  ROUTINE) 


The  8-bit  pixels  from  picture  data  files  are  copied  onto  7-track  tape 
using  the  routine  MAG256  or  MAG512.  Copies  of  these  7-track  data  tapes 
are  made  using  the  program  COPY  on  the  UNI  VAC  1108.  The  data  is  read 
from  the  data  tape  and  then  packed  onto  the  copy  tape  using  a specified 
format.  The  user  specifies  the  number  of  records  per  file,  the  number 
of  words  per  record  (assuming  36-bit  words),  and  the  number  of  files  to 
be  copied. 
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SECTION  5 


STRUCTURAL  ANALYSIS  OF  NOISY  IMAGES  USING 
ONE-DIMENSIONAL  CONTOUR  DESCRIPTORS 

INTRODUCTION 


The  problem  of  representing  a simple  closed  contour  by  a one-dimensional 
function  has  been  studied  in  the  literature  with  some  interesting  results. 

The  Fourier  descriptors,  first  introduced  by  CosgriffjL  and  further 
reported  on  in  an  excellent  paper  by  Zahn  and  Roskies'^,  is  one  such 
method.  Zahn  proposes  a normalized  function  $(t),  in  which  the  tangential 
angle  is  considered  as  a function  of  the  contour  length  and  then  normalized. 

In  this  paper,  we  restrict  the  class  of  contours  to  polygons,  which,  as  Zahn 
notes,  arise  naturally  in  the  study  of  digitized  pictures.  The  problem  of 
extracting  such  boundary  contours  has  been  well  studied'^* '‘*>^5’'^.  For  our 
purposes,  we  assume  the  contour  has  already  been  extracted,  and  discuss 
various  characteristics  of  these  contours  in  terms  of  the  derivative  of 
4>(t).  By  taking  the  derivative  of  if(t),  we  show  that  a polygonal  contour 
may  be  represented  by  a sequence  of  impulse  functions.  These  impulses  have 
a simple  relationship  to  the  convexity  or  concavity  of  the  polygonal  angles. 
This  relationship  facilitates  the  defining  of  a simple  complexity  measure, 
which  is  closely  related  to  the  concavity  of  the  contour.  We  also  discuss  a 
similar  pulse  representation  for  the  skeleton.  Next,  a slightly  modified 
version  of  Zahn's  similarity  measure  is  proposed  in  terms  of  the  Fourier 
descriptors  corresponding  to  i(t).  The  effects  of  noise  in  the  contour  is 
discussed  in  terms  of  this  measure  and  a technique  for  extracting  a noise 
free  contour  from  a noisy  one  is  proposed.  Finally,  several  examples  are 
given  throughout  the  paper. 

IT  R.  L.  Cosgriff,  "Identification  of  Shape,"  Ohio  State  University  Research 
Foundation,  Columbia,  Rep.  820-11,  ASTIA  AD  254792,  December  1960. 

12.  Zahn  and  Roskies,  pp.  269-281. 

13.  C.  T.  Zahn,  "Two-Dimensional  Pattern  Description  and  Recognition  Via 
Curvature  Points,"  Stanford  Linear  Acceleration  Cent.  (USAEC),  Stan- 
ford University,  Stanford,  Calif.,  Tech.  Rep.  SLAC-70,  December  1966. 

14.  C.  T.  Zahn,  "A  Formal  Description  for  Two-Dimensional  Patterns,"  Proc. 
Int.  Conf.  Art.  Int.,  pp.  621-628,  May  1969. 

15.  R.  S.  Leedley,  Use  of  Computers  in  Biology  and  Medicine,  New  York; 
McGraw-Hill,  p.  340,  1965. 

16.  U.  Ramer,  "An  Iterative  Procedure  for  the  Polygonal  Approximation  of 
Plane  Curves,"  Comput.  Graph.  Imag.  Proc.  1,  pp.  244-256,  1972. 
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IMAGE  CONTOUR  REPRESENTATION  AND  FOURIER  DESCRIPTORS 


In  [8],  Zahn  discusses  the  representation  of  a two-dimensional  binary  image 
with  a boundary  described  by  a simple  closed  contour.  Since  the  image  is 
assumed  to  be  binary,  it  may  be  defined  completely  in  terms  of  its  boundary. 
A contour  function  <(.)  is  defined  as  shown  in  Figure  5.1.  An  arbitrary 
point,  S,  is  chosen  as  a starting  point  on  the  contour  Moving  clockwise 
along  the  contour,  the  angle  e between  the  tangential  directions  at  S and 
at  the  current  point  is  associated  with  the  contour  length  e.  For  a con- 
tour of  length  L,  this  association  produces  a well  defined  function  e(0 
with  domain  [0,  L]  for  any  given  starting  point  S. 

As  pointed  out  by  Zahn,  e(0  will  be  invariant  under  translations  and  ro- 
tations for  a fixed  starting  point.  Furthermore,  if  we  introduce  the 
normalized  function 

0!(t)  = 9(-^)  0 < t < 2t,  . (6) 


We  find  that  iti(t)  has  the  additional  property  of  being  invariant  under  con- 
tour size  changes.  It  is  worth  noting  at  this  point  that  in  [8]  a method 
is  given  for  reconstruction  of  the  original  contour  from  (6)  up  to  transla- 
tion, rotation,  and  size  transformations.  Since  the  essential  structure 
of  an  image  will  be  preserved  under  these  transformations,  this  result 
implies  that  this  structural  information  is  completely  contained  in  the 
function  ^(t). 

Since  the  domain  of  t)(t)  is  given  to  be  [0,  Z-],  we  may  extend  <}i(t)  period- 
ically with  period  2tt  and  thus  represent  ait)  with  the  Fourier  expansion 


^(t)  = Uq  + A(^  cos(kt  - T.,^)  , (7) 

with  amplitude  and  phase  parameters,  A|^  and  These  parameters  are  termed 

as  the  Fourier  descriptors  in  [8].  As  Zahn  points  out,  the  phase  parameters 
only  are  a function  of  the  starting  point.  Thus,  the  A|^'s  depend  only  upon 

the  shape  of  the  contour,  being  independent  of  translation,  rotation,  and 
size  transformations  and  the  starting  point  S.  As  will  be  mentioned  subse- 
quently, this  fact  suggests  a natural  similarity  measure  for  the  class  of 
images  under  discussion.  In  the  next  section,  we  leave  the  Fourier  descrip- 
tor approach  and  discuss  the  description  of  the  contour  in  terms  of  impulses. 
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PICTURE  DESCRIPTION  USING  PULSE  SEQUENCE  REPRESENTATION 


A common  technique  in  image  analy 
those  discussed  in  the  previous  s 
particular,  the  digitized  version 
treated  in  image  processing,  is  i 
reasonable  to  restrict  the  class 
polygonal  boundaries  as  in  Figure 
-{((t)  becomes  a constant  along  the 
ities  at  the  vertices  as  shown  in 
expressed  as 


$(t) 


N 

y 

i = l 


^i 


- ^i) 


where 


sis  is  to  represent  smooth  countours  like 
ection  by  a polygonal  approximation.  In 
of  the  smooth  contour,  as  is  most  frequently 
n fact  a polygon.  Therefore,  it  is  quite 
of  images  under  discussion  to  those  with 
5.2a.  With  this  assumption,  we  find  that 
edges  of  the  polygon,  with  jump  discontinu- 
Figure  5.2b.  In  general,  ii(t)  may  be 


(8) 


l . 


a.  is  the  angular  change  corresponding  to  the  vertex  at  distance  . 
from  the  starting  S,  and  ^ 

U(t)  is  the  unit  step  function. 


Using  Equation  (8),  we  may  now  derive  the  contour  representation  to  be  dis- 
cussed in  the  remaining  sections  of  this  paper. 

Taking  the  derivative  of  (ti(t)  in  Equation  (8),  we  find  that  d(};(t)/dt  takes 
the  form 


dt 


N 

I a.  6(t  - t.) 
i = l ^ ^ 


where 


•^(t)  denotes  the  unit  impulse  function,  and 


(9) 


Thus,  the  polygonal  contour  may  be  uniquely  defined  in  terms  of  a sequence 
of  pulses  as  illustrated  in  Figure  5.2c.  It  may  be  further  pointed  out 
that  the  concave  and  convex  angles  of  the  polygon  are  related  to  the  pulse 
amplitude  sign.  The  concave  angles  correspond  to  positive  amplitudes, 
while  the  convex  angles  are  negative. 
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Intuitively,  one  associates  the  complexity  of  a figure  to  the  concave  angles 
in  the  figure.  This  suggests  the  following  complexity  measure: 


C = >1’  - 2tt  . (10) 

For  a polygon,  Equation  (10)  may  be  written  in  terms  of  the  concave  angles 
as 


C = 2 [ (concave  angles)  , (11) 

Thus,  Equation  (10)  is  a measure  of  the  concavity  in  the  contour. 

Clearly,  Equation  (10)  is  a useful  measure  for  distinguishing  images  of 
different  complexity,  such  as  a rectangle  from  a cross.  On  the  other  hand, 
for  objects  of  similar  complexity,  such  as  a rectangle  and  a triangle,  the 
complexity  measure  does  not  contain  sufficient  discriminating  information 
and  so  we  must  extract  more  features  from  the  pulse  sequence.  In  the  worst 
case,  the  pulse  sequence  itself  may  be  required  for  classification  of  images. 
Thus,  the  feature  reduction  problem  may  be  viewed  at  successive  simplifying 
operations  on  the  pulse  sequence  where  the  limiting  case  will  be  one  feature, 
such  as  the  complexity  measure  in  Equation  (10). 

Figure  5.3  illustrates  some  possible  simplification.  In  Figure  5.3b,  all 
adjacent  convex  angles  are  combined,  thus  preserving  the  convex/ concave 
relation  of  the  image.  In  Figure  5.3c,  the  convex  angles  of  Figure  5.3b  are 
all  assumed  to  be  Here,  the  concave  angles  are  retained  along  with 
their  ordering  relation  with  the  convex  angles.  The  final  simplification 
shown  in  Figure  5.3d  combines  all  adjacent  concave  angles  in  Figure  5.3c. 

One  final  simplification  to  Figure  5.3d  would  be  to  add  up  all  concave  angles 
which  is  equivalent  to  the  complexity  measure  of  Equation  (10). 

We  would  like  to  conclude  this  section  with  a discussion  of  the  representa- 
tion of  the  skeleton  of  an  image  in  terms  of  a pulse  sequence.  In  this  case, 
the  skeleton  is  traced  out  as  shown  in  Figure  5.4,  with  end  points  in  the 
skeleton  represented  by  convex  angles  of  tt  radians.  A skeleton  composed  of 
line  segments  may  be  systematically  constructed  from  smaller  skeletons.  The 
process  of  joining  two  skeletons  and  the  corresponding  merging  of  their 
respective  pulse  sequences  is  illustrated  in  Figure  5.5.  The  new  pulse 
sequence  is  formed  by  shifting  the  pulse  sequence  of  skeleton  B such  that 
its  starting  point  is  at  S'.  The  end  points  of  this  sequence  are  then  re- 
placed by  concave  angles  a and  n - a in  the  case  of  Figure  5.5c  or  a and  -a 
in  the  case  of  Figure  5.5d.  Finally,  this  pulse  sequence  is  inserted  in 
the  pulse  sequence  for  skeleton  A at  the  point  S.  In  the  case  of  Figure 
5.5d,  the  -ti  pulse  at  b is  replaced  by  the  pulse  sequence  of  skeleton  B. 
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Using  this  basic  construction  method,  a complex  skeleton  may  be  constructed 
along  with  its  pulse  representation  from  simple  line  segments.  In  addition, 
a pulse  sequence  will  represent  a skeleton  only  if  it  may  be  constructed 
in  this  manner.  Thus,  an  algorithm  based  upon  this  construction  can  be 
used  to  derive  a skeleton  pulse  sequence  from  the  original  contour  pulse 
sequence. 

In  the  next  section  we  consider  the  corruption  of  the  pulse  functions,  dis- 
cussed here,  by  image  noise  in  the  contour. 


SIMILARITY  MEASURE 


As  previously  mentioned,  Zahn  and  Roskies  propose  a similarity  measure  between 
two  contours,  , and  in  terms  of  the  Fourier  description  of  .t(t).  This 
measure  is  defined  as 


<X‘ 

SaL.,  lA,^  - A^i  , (12) 

where  the  Aj^'s  are  the  amplitude  coefficients  in  Equation  (7).  For  our  pur- 
poses, we  would  like  to  consider  the  expression 


lit)  = Uq  + cos(kt  - B|^) 


and  define  the  similarity 


[.,  y']  = 


k 

k=l 


(13) 


(14) 


where  k represents  the  cutoff  frequency.  As  in  the  case  of  the  A|^'s,  the 

Bj^'s  are  independent  of  rotation,  translation,  contour  length,  and  starting 

point.  Therefore,  Equation  (14)  provides  a distance  measure  between  , and 
which  depends  only  upon  shape.  For  a i(t)  given  by  Equation  (9),  B|^  may 
be  written  as 


where  1*1  denotes  the  modulus  of  the  complex  quantity. 


(15) 
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The  similarity  measure  in  Equation  (14)  clearly  has  discriminating  ability 
as  is  shown  in  several  explicit  examples  to  follow  in  this  and  subsequent 
sections.  The  limitations  of  this  discrimination  are  also  shown  to  be  a 
function  of  the  parameter  k.  This  fact  is  demonstrated  to  be  advantageous 
in  the  next  section  for  classifying  contours  to  various  shapes  in  the  pres- 
ence of  noise.  The  examples  to  follow  in  this  section  reveal  that  low 
r values  of  k produce  significant  similarity  distances  between  images  such 

as  triangles,  squares,  and  rectangles.  While  on  the  other  hand  in  the  next 
section,  we  see  that  noise  in  an  image  can  be  largely  eliminated  from  the 
similarity  measure  if  a low  value  for  k is  chosen. 

We  conclude  this  section  with  explicit  examples  of  calculations  for  Equa- 
tion (14).  For  these  examples,  we  consider  the  similarity  between  the 
square,  rectangle,  triangle,  and  cross  shown  in  Figure  5.6.  Table  5.1 
shows  the  theoretical  similarity  measure  for  various  values  of  k. 


NOISE  CONSIDERATIONS  IN  DIGITIZED  PICTURES 


In  this  section,  we  discuss  the  types  and  effects  of  noise  which  occur  in 
real  digitized  pictures.  Consider  a binary  picture  which  is  digitized  into 
a matrix  of  (0,  1)  pixel  values.  As  we  see  by  the  example  in  Figure  5.7, 
the  contour  is  composed  of  line  segments  of  fundamental  length  B.  For 
simplification  of  the  discussion,  we  are  assuming  the  diagonal  segments  to 
have  the  same  length  as  the  vertical  and  horizontal  segments.  Because  of 
the  pixel  structure  of  the  image,  the  angle  at  a vertex  is  considered  to 
take  on  one  of  seven  possible  values  (-/2,  7t/4,  0,  -r/4,  -t-ZZ,  -3ii/4).  There- 
fore, the  contour  function  d$(t)/dt  for  a digitized  picture  of  this  type  will 

2" 

be  a sequence  of  pulses  — apart  with  each  pulse  taking  on  one  of  seven 
values.  Thus,  the  general  pulse  function  will  have  the  form 

^(t)  = [ a U(t  - i-^)  , (16) 

i = l ^ " 

where  n is  the  number  of  incremented  segments  in  the  contour.  For  typical 
digitized  pictures,  the  image  size  is  large  compared  to  the  pixel  size,  for 
example,  n on  the  order  of  100. 

Two  types  of  noise  appear  in  a digitized  contour  of  this  form.  The  first 
type  is  what  we  call  digitization  noise.  This  noise  will  occur  whenever  a 
smooth  contour  is  digitized  into  fixed  length  line  segments  with  a finite 
number  of  possible  vertex  angles.  An  example  of  this  digitization  noise  is 
given  in  Figure  5.8a.  In  this  example,  we  see  that  the  sides  of  the  digitized 
contour  oscillate  about  the  sides  of  the  triangle.  The  second  type  of  noise 
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TABLE  5.1.  SOME  SIMILARITY  MEASURES 


square 

RECTANGLE 

CROSS 

TRIANGLE 

II 

Square 

0 

2.0 

1.95 

4.12 

Rectangle 

0 

2.13 

4.84 

Cross 

0 

2.71 

Triangle 

0 

II 

Square 

0 

4.0 

6.84 

6.9 

Rectangle 

0 

5.02 

5.11 

Cross 

0 

5.33 

Triangle 

0 

00 

II 

Square 

0 

5.0 

8.28 

8.39 

Rectangle 

0 

7.41 

6.10 

Cross 

0 

8.25 

Triangle 

0 
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is  image  noise.  In  this  case,  the  noise  is  inherent  in  the  detected  image 
by  a noisy  background  in  the  picture.  This  noisy  background  will  cause 
the  detected  boundary  contour  to  deviate  from  the  actual  contour.  An  ex- 
ample of  this  is  given  in  Figure  5.8b,  where  the  side  of  the  square  has 
been  obscured  by  noise. 

Figure  5.9  shows  two  fundamental  noise  elements  with  their  corresponding 
pulse  components.  An  image  contour  which  is  distorted  by  one  of  these  noise 
elements  may  be  represented  by 

= ti(t)  + $fj(t)  , (17) 

where  $j(t)  is  the  undisturbed  contour,  while  $nj(t)  represents  the  noise. 

For  the  noise  element  in  Figure  5.9a  (type  A noise), 

;^(t)  = 6(t  - 2tt)  - ^ 6(t  - 2it) 

+ 5(t  . -^L  2n)  , (18) 

where  again  n is  the  number  of  pixel  segments  in  the  image  contour.  The 
noise  element  in  Figure  5.9b  (type  B noise)  will  be  equivalent  to  Equation 
(18)  with  a sign  change.  We  may  now  proceed  to  calculate  an  upper  bound  on 
the  similarity  distance  between  the  original  and  noisy  contours. 

To  derive  a bound  for  Equation  (12),  where  t and  >'  are  the  original  and 
noisy  contours,  respectively,  let  (B^,  (B,^,  , and  (b|J^^ 

represent  the  Fourier  parameters  in  Equation  (13)  for  iij(t),  'i>j+fj(t),  and 
i|^(t).  By  Equations  (13)  and  (17),  we  have 

cos(kt  - a^)  = B|^  cos(kt  - + b|^^^  cos(kt  - <1^^))  . (19) 


Using  the  complex  exponential.  Equation  (19)  may  be  written  as 


Re[B-  ‘ = Re[B.  ' '"k^]  + Re[Bf^^ 


Since  Equation  (20)  holds  for  all  t.  Equation  (20)  reduces  to 


(20) 


B'  e'-^''k  = B^  e’^^^k  + B|J^^  e'-^^k 


(N) 


(21) 
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Now,  from  Equation  (21)  and  the  fact  that  Bj^,  B|^,  and  Bj^^^  are  defined  to 
be  positive,  one  can  derive  the  following  inequality: 

|B^  - = MB'  e'J^kl  - |B^  e'J“k||  i |B-  e'^^k  - B^  e'-^^k]  = B^'^^  . 

Finally,  we  now  have  from  Equations  (14)  and  (22), 

S^''^[,,y']<  y B^^^  . (23) 

^ " k=l 

Thus,  the  similarity  distance  between  a noisy  contour  and  the  noise  free 
contour  is  bounded  by  the  expression  on  the  right-hand  side  of  Equation  (23), 
which  may  be  calculated  from  the  elemental  noises  of  Figure  5.9.  Further- 
more, typical  noises  may  be  modeled  by  adding  up  several  fundamental  noise 
elements  which  are  shifted  along  the  contour  with  respect  to  each  other, 
that  is,  for  different  values  of  m in  Equation  (18).  For  example,  in 
Figure  5.8a,  the  digitization  noise  may  be  modeled  by  a sequence  of  alter- 
nating types  of  noise  elements.  Similarly,  for  Figure  5.8b,  the  noise  may 
be  considered  as  the  sum  of  two  type  A noises  and  four  type  B noises  with 
the  appropriate  positioning  along  the  contour.  Using  this  addition  of 
fundamental  noise  elements  to  characterize  noise,  we  can  derive  a general 
bound  analogous  to  Equation  (23); 

y']  1 I il  . (24) 

“ 5=1  k=l 


where  is  the  number  of  fundamental  elements  in  the  noise. 

Using  Equation  (15)  we  can  calculate  the  right-hand  side  of  Equation  (24) 
for  the  noises  in  Figure  5.9  to  be 


k . k j 2nk  j 47Tk 

l ■ -I-  I n - 2 ♦ e’-i— 


k=l 


2it 

2a 


k=l 
k 

I |sin 
k=l 


Trk 


Substituting  Equation  (25)  into  Equation  (24), 

N. 


.■]l(  I. 


Trk 


5=1 


k=l 


(25) 


(26) 


(22) 
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gives  a general  upper  bound  for  the  noise.  By  noting  the  sine  terms  in 
Equations  (25)  and  (26),  we  see  that  the  low  order  terms  in  the  summation 
will  have  negligible  effect,  that  is,  for  nk/n  small.  Therefore,  an  upper 
bound  in  choosing  k will  depend  upon  this  sine  function  envelope.  On  the 
other  hand,  the  lower  bound  for  k will  be  determined  by  the  ability  of 
the  similarity  measure  to  distinguish  different  images  as  discussed  in  the 
previous  section.  In  the  remainder  of  this  section,  we  give  some  explicit 
examples  using  the  similarity  measure  to  identify  noisy  contours. 

For  these  examples,  we  have  simulated  digitization  and  image  noise  for  the 
four  basic  shapes  in  Figure  5.6.  These  are  shown  in  Figure  5.10.  Inthe 
final  section,  we  discuss  a technique  for  filtering  the  noise  out  of  i(t) 
and  thus  restoring  a noise  contour. 


CONTOUR  RESTORATION 


In  our  final  section,  we  discuss  a technique  for  taking  advantage  of  the 
high  frequency  characteristics  of  contour  noise  to  extract  a noiseless  con- 
tour from  a noisy  one.  In  the  previous  section,  we  found  that  the  noise 
envelope  is  given  by  sin(kt/n).  Therefore,  for  small  values  of  k,  the  noise 
contribution  will  be  minimal.  This  suggests  that  if  the  signal  J(t)  is 
passed  through  a low  pass  filter,  the  noise  component  can  be  all  but  elim- 
inated and  thus  the  characteristics  of  the  filtered  signal  will  reflect  the 
original  contour.  If  the  noise  in  the  contour  is  small  (in  terms  of  devia- 
tion from  the  original  signal),  the  window  width  of  the  filter  may  be  chosen 
to  filter  out  the  noise  while  retaining  the  basic  structure  of  the  contour. 

To  reconstruct  the  filter,  we  must  next  use  a sharpening  filter  to  extract 
the  position  and  angle  of  the  original  vertices  of  the  contour.  Essentially, 
this  process  is  one  of  finding  the  best  pulse  sequence  represented  by  the 
filtered  i(t).  The  system  diagram  as  shown  in  Figure  5.11  thus  consists  of 
a smoothing  filter  followed  by  a sharpening  filter.  By  choosing  the  right 
filter  parameters,  we  will  show  that  only  the  original  contour  character- 
istics will  be  retained. 

For  the  specific  examples  to  follow,  we  have  chosen  the  filtering  process 
to  be 

ifijtvt)  = ig(t)  * g(t)  , (27) 

where  ig(t)  is  the  periodic  extension  of  ij+|ij(t)  and 

g(t)  = — ! e'^  /2a  _ (28) 

>Tna 
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Equation  (28)  has  been  chosen  for  g(t)  primarily  for  its  smoothness  and 
unimodal  structure.  The  unimodal  structure  has  been  found  to  greatly 
facilitate  the  sharpening  operation.  The  sharpening  filter  used  consists 
of  locating  the  major  positive  peaks  and  negative  valleys.  These  points 
are  then  identified  as  concave  and  convex  angles,  respectively.  The 
values  are  then  determined  by  integrating  under  each  peak  and  valley  and 
multiplying  by  a proportionality  constant  so  that  the  angles  add  up  to  -2ti 

since  /^’'$(t)dt  = -2-n  as  previously  mentioned.  Figure  5.12  shows  the 

filtered  pulse  functions  and  their  sharpened  versions  corresponding  to  the 
noisy  contours  in  Figure  5.10.  Figure  5.13  demonstrates  the  application 
of  this  filtering  and  sharpening  technique  to  a typical  aircraft  contour. 


CONCLUSIONS 


In  this  paper  we  have  discussed  a method  for  representing  binary  images  with 
simple  closed  boundaries.  In  particular,  for  polygonal  boundaries,  the 
representation  we  use  is  a one-dimensional  function  formed  by  a sequence 
of  impulse  functions.  Using  this  representation,  we  have  discussed  the 
feature  extraction  problem  and  proposed  a complexity  measure  which  is  shown 
to  be  related  to  the  concavity  of  the  contour.  Next,  we  introduce  a similar- 
ity measure  which  is  analogous  to  the  one  Zahn  proposes,  but  is  in  terms  of 
i(t).  Using  this  measure,  we  have  discussed  the  effect  of  noise  imposed 
upon  the  contour.  It  was  shown  that  this  noise  shows  a high  frequency  char- 
acteristic and  thus  can  be  filtered  out.  In  addition,  using  only  the  low 
frequency  terms  for  the  similarity  measure,  we  can  use  this  measure  for 
identifying  noisy  contours.  Finally,  we  have  also  demonstrated  a method 
for  extracting  the  original  contour  from  noise.  This  method  consists  of  a 
smoothing  filter  followed  by  a sharpening  filter.  This  method  is  demonstrated 
by  a few  explicit  examples. 
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Figure  b,4.  Pulse  Representation  of  a Skeleton 
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(a) 


(b) 


(c) 
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(d) 


Figure  5.6.  Basic  Image  Shapes 
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Figure  5.10.  Noisy  Contours  of  the  Four  Basic  Image  Shapes 


89 


90 


•••  PlLTE^eC  THETAPRiME  VS.  L 


.1272^02 


• 6n9>01 


-.‘*772^00 


-.70744-01 


-.13^>74.02 


-•2327>02 


(a) 


♦ PILTFRrC  THETAPPP-'E  VS.  L 


(b) 

Figure  5.12.  Filtered  Pulse  Functions 

(Arrows  represent  the  sharpened 
versions) 
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Figure  5,12.  Filtered  Pulse  Functions  (Cont'd) 
(Arrows  represent  the  sharpened 
versions) 
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Figure  5.13.  Filtered  and  Sharpened  Pulse  Function  of  a Typical 
Aircraft  Contour 


SECTION  6 


RELATIONSHIP  OF  RESEARCH  TO  THAT  OF  NMSU 


One  purpose  of  this  summer's  effort  was  to  compare  our  proposed  tracking 
techniques  to  those  being  implemented  by  NMSU.  However,  at  this  stage  of 
data  collection  and  analysis,  such  a comparison  would  be  premature.  It  seems 
the  image  decomposition  and  projection  computation  used  by  NMSU  is  indeed 
relatively  simple  for  real-time  implementation.  The  question  to  be  answered 
is  "is  this  computation  sufficient  for  typical  tracking  problems?"  It  is  ap- 
parent that  as  hardware  capabilities  increase,  it  is  desirable  to  increase 
the  complexity  of  the  system  to  make  it  more  robust  under  various  tracking 
situations.  We  plan  to  continue  this  research  and  to  continue  to  cooperate 
with  NMSU  in  establishing  and  analyzing  a video  tracking  data  base.  Our 
special  emphasis  will  be  segmentation  and  structure  analysis  algorithms-- their 
advantages  and  shortcomings.  We  will  also  investigate  the  combination  of 
the  various  techniques  into  a high  level  system  that  can  choose  the  proper 
techniques  in  sequence  and  interpret  results  to  control  the  next  requests. 
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SECTION  7 


REAL-TIME  VIDEO  TRACKER  SIMULATION 


A general  effort  was  directed  toward  coordination  of  the  NMSU  real-time 
video  (RTV)  tracker  research  and  the  Purdue  picture  processing  research. 
Specific  effort  was  directed  toward  obtaining  video  tapes  of  a variety 
of  WSMR  missile  tests  and  their  digitization,  coordination  of  meetings 
with  the  NMSU  RTV  tracker  research  staff,  and  general  system  integration 
and  troubleshooting  of  the  digitzer  and  video  disk. 

Specific  effort  was  directed  toward  the  installation  of  the  NMSU  RTV 
tracker  simulation  program  on  the  Tektronix  system.  Since  the  original 
simulation  program  was  written  for  an  HPMX21/Tektronix  4004  graphics 
system,  transportability  problems  existed.  Dr.  Raul  Machuca  was  respon- 
sible for  rewriting  the  simulation  software.  Dr.  Javin  Taylor  supported 
the  development  of  the  top-down  program  structure  and  performed  the  final 
program  debugging  and  the  rewriting  of  the  NMSU  simulation  graphics  soft- 
ware for  use  on  the  Tektronix  4014  graphics  system. 

Two  subroutines  were  written  to  enhance  the  initial  user  setup  of  the  RTV 
tracker  simulation.  The  first  provides  a three-dimensional  view  of  the 
missile  trajectory  so  that  the  user  can  visualize  how  the  tracker  should 
respond.  The  second  subroutine  provides  plots  of  the  dynamic  tracker 
azimuth,  elevation,  rotation,  and  zoom  response  for  perfect  missile  tra- 
jectory data.  Thus,  the  user  can  determine  how  tracking  errors  should  be 
attributed  to  tracker  dynamics  limitations  rather  than  image  recognition 
and  structure  decomposition. 

Analysis  was  initiated,  and  is  continuing,  to  shorten  the  processing 
time  for  the  RTV  tracker  simulation.  Analysis  was  also  initiated,  and 
is  continuing,  to  determine  how  real  digitized  video  data  can  be  inserted 
into  the  RTV  tracker  simulation  in  place  of  the  simulated  digitized  video 
data. 


SIMULATION  PROGRAM  DESCRIPTION 


PURPOSE 

To  simulate  a complete  video  tracking  loop  including  target  trajectory, 
video  simulation,  image  decomposition,  structural  tracking,  tracker  con- 
trol, and  tracker  dynamics. 
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?REG£DI.'.’G  PASS  BLaNK-NOT  FILMSD 


HARDWARE  REQUIRED 

Graphics  terminal,  POP  11/35  minicomputer  system. 

PROGRAMMING  LANGUAGE 
FORTRAN  IV. 

FORTRAN  FILES  REQUIRED 

RTVS,  RTV,  CONTR,  DCOMP,  GEN,  TKRDV,  TRJEC,  PCM,  STRPC,  GRAPHS. 

DESCRIPTION 

The  purpose  of  the  RTV  tracker  simulation  is  twofold:  (1)  to  simulate 
the  operation  of  the  RTV  tracker  system  under  development  at  NMSU,  and 
(2)  to  provide  a test  bed  whereby  picture  processing  and  pattern  recog- 
nition algorithms  can  be  tested  in  a hybrid  simulator/hardware  environment. 

The  program  starts  with  a series  of  initial  questions  which  require 
responses : 

1.  Any  changes?  Self  explanatory. 

2.  3D  plot  of  missile  trajectory?  A yes  response  causes  the  graphics 
terminal  to  display  the  path  that  the  simulated  target  will  traverse. 

3.  Plot  of  perfect  tracker  response?  A yes  response  causes  the 
graphics  tenninal  to  display  the  dynamic  response  of  the  various  tracking 
components;  azimuth,  elevation,  rotation,  and  zoom  based  upon  perfect 
tracking  information. 

OPTIONS: 

(1)  Number  of  frames?  The  number  of  video  frames  to  be  simulated. 
Enter  1 to  360,  right  justified  13. 

(2)  Which  plot,  etc?  Selection  of  Az,  El,  rotation,  or  zoom  plots 
target  versus  time  and  tracker  output  versus  time.  Selection  of  AZERR, 
ELERR,  ROTERR,  and  ZMERR  plots  tracker  error  versus  time. 

4.  Ask  every  frame  Modulo  N?  The  program  will  halt  at  the  frame  num- 
ber modulo  the  specified  N and  ask  the  sequence  of  questions. 
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5.  Plot  every  frame  Modulo  N?  The  program  will  plot  the  simulated 
video  and  tracking  at  every  frame  number  modulo  the  specified  N. 

6.  Dump  present  state  of  the  system?  A yes  response  causes  the 
present  state  of  the  system  to  be  stored  in  a data  file  on  the  simulator 
disk. 


7.  Load  new  state  for  the  system?  A yes  response  causes  the  system 
state  stored  in  a data  file  on  the  simulated  disk  to  be  loaded  so  the 
simulator  can  be  started  from  a previously  stored  state. 

Figures  7.1  and  7.2  show  video  frame  simulations  at  frames  19  and  98. 

WARNING:  At  the  present  time,  do  not  request  the  zoom  or  ZMERR 
option  under  plot  of  perfect  tracker  response.  The  zoom  response 
has  not  been  incorporated  into  this  option. 
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Video  Tracker  Simulation  at  Frame  IQ 


SECTION  8 


COMPUTER  PROGRAMS 


Following  is  the  source  code  and  some  documentation  for  many  of  the  useful 
programs  developed  at  WSMR  this  summer. 


i 

I 


i 


, LPORIG  JULY  28,1977  MITCHELL 

; DISPLAYS  GRAY  LEVEL  PICTURES  ON  PRINTRONIX 
.EXPECTS  240  POINTS  PER  ROW 

i EACH  POINT  DISPLAYED  USING  10  GRAY  LEVELS  CREATED  USING 
, A 3X3  MATRIX 

, CAN  DISPLAY  OUTPUT  OF  DIGITIZER  PROGRAMS 
MCALL  V2  , REGDEF,  . CSIGEN,  READW,  CLOSE,  PRINT 
MCALL  EXIT, . WAIT, . TTYIN 
V2 


REGDEF 

LPDAT=167772 

LPSTAT= 167770 

FINISH  PRINT 
CLOSE 
EXIT 

START  PRINT 
PRINT 
CSIGEN 
CLR 
PRINT 
MOV 
JSR 
PRINT 
MOV 
JSR 

LOOP  1 MOV 
ASL 
ASL 
ASL 
ASL 
SUD 
READW 
BCS 
INC 
MOV 
MOV 

L00P2  MOV 
MOV 
MOV 
MOV 

L00P3  MOVE 
BIC 
SUB 
BGE 
MOV 
BR 

DIVIDE:  MOV 

AGAIN  INC 
SUD 
BGE 
MOV 
CMP 
BLT 
ASL 
ADD 
ADD 


#RMSG 

#3 

#ANNON 

«ASK 

#CORSPC, #FPRT 

BUFCNT 

#REG1 

#BLACK, R1 

PC, ACCEPT 

#REQ2 

#INCR, R1 

PC, ACCEPT 

BUFCNT, R 1 

R1 

R1 

R1 

R1 

BUFCNT, R1  .15  BLOCKS  PER  BUFFER 

#ARE  A,  #3,  4»BUF4.  #7400,  R1 
FINISH 
BUFCNT 
#BUF4,  R4 
#-40, LINES 
#BUFl, R1 
#DUF2. R2 
#BUF3, R3 
#-360, BYTES 
(R4)  R5 
#17  /400,  R5 
BLACK, R5 
DIVIDE 
#TADLE-3.  R5 
LOOKUP 
#-l,  RO 
RO 

INCR, R5 
AGAIN 
RO,  R5 
#1 1 , R5 
TOOBIG 
R5 

RO, R5  i MULTIPLIES  R5  BY  3 

#TABLE, R5 


, NO  OF  LINES  PER  BUFFER 
.WRITES  1 LINE 

.ALLOWS  FDR  240  POINTS  PER  LINE 
.WRITES  1 CHARACTER 

i BELOW  #BLACK  IS  BLACK 

i DIVIDES  R5  BY  10 
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BR 

LOOKUP 

ADD 

STABLE. R5 

LOOKUP 

BIT 

#1, BYTES 

BNE 

SECOND 

FIPbT: 

liOVB 

(RD)  <->  <R  1 ) 

MOVB 

<RDM,  <Ra> 

MOVE 

(R5),  (R3) 

BR 

NEXT 

SECONM: 

NDVB 

(R5)H-  RO 

ASL 

RO 

ASL 

RO 

ASL 

RO 

BIS 

o 

o 

o 

BISB 

RO,  (R1  >•«- 

MO'v  B 

<R0)4.  pr; 

ASL 

RO 

ASL 

RO 

ASL 

RO 

BIS 

♦»100,  RO 

BISB 

RO. iRP>+ 

MOVE 

(Rb)  Ro 

A5I 

RO 

ASL 

RO 

ABL 

RO 

BIS 

#100, RO 

BISB 

RO,  (R3;  + 

NEXT 

IN" 

BYTES 

BEQ 

LINEND 

JMP 

LOOP  3 

i BACK 

FOR 

ANOTHER 

CHARACTER 

LINEND; 

MOVB 

#005,  (R1  ) 

MOVB 

<R1 ), (R2)+ 

MOVE 

< R 1 ) «- , < R 3 ) + 

MOVE 

#012,  (R1  ) 

MOVB 

(R1  ),  (R2H- 

MOVB 

(R1  )+,  (R3)  + 

SUB 

#BUF1, R1 

SUB 

#BUF2, R2 

SUB 

#BUF3,  R3 

MOV 

#BUF1 , R5 

JSR 

PC,  WRITIT 

MOV 

R2,  R1 

MOV 

#BUF2, R5 

JSR 

PC, WRITIT 

MOV 

R3,  R1 

MOV 

#BUF3,  R5 

JSR 

PC,  WRITIT 

INC 

LINES 

BEQ 

BUFEND 

JMP 

L00P2 

i BACK 

FOR 

ANOTHER 

L INE 

BUFEND- 

JMP 

LOOP  1 

; BACK 

FOR 

ANOTHER 

BUFFER 

WR 1 T I T 

BIT 

#200, e#LPSTAT 

BEQ 

WRITIT 
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ACCEPT 

INLOOP 


NX L OOP 


TABLE 


FPRT; 


MOVB 
SOD 
RTS 
MOV 
TTYIN 
CMPD 
BNE 
MOV 
CLR 
MOV 
MOVB 
P fC 
ASL 
ASL 
ASl. 

BIS 
SOD 
MOV 
RTS 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
bVTE 
BYTE 
. E /TE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
. BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
EVEN 
RAD  50 
WORD 
WORD 
WORD 


<R5>+. e#LPUAT 
R 1 , WR I T I T 
PC 

#BUF5,  R2 
(R2)  + 

#12,  RO 
INLOOP 
#BUF5.  R2 
R5 

#3,  R3 

(R2)+, RA 

#177773, R4 

R5 

R5 

R5 

R4,  R5 
R3,  NXLOOP 
R5,  (R  1 ) 

PC 


/ 

7 


5 

6 

5 
3 

6 
5 

3 

4 
4 

3 

4 
4 

3 
O 

4 
2 
O 
0 
2 
O 
O 
O 
0 
O 
0 
O 

/DAT/ 

O 

O 

0 


.ASSEMBLE  INTO  OCTAL  NUMBER 
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AREA 

ANNON 

ASK: 
REQl  : 

RE- 02: 


BUFCNT: 
KOUNT: 
LINES 
BYTES 
BL  ACK 
I NCR 
COR SRC: 
PUr- 1 
BUF  2 
PUF3 
BUr  T : 
BUF5 


BLKW  10 

ASCII  /LINE  PRINTER  10  GRAY  LEVELS. 2A0  POINTS  PER  ROW/ 
ASCII  /ENTER  INPUT  FILE/ 

ASCII  /ENTER  OCTAL  3 DIGIT  BLACK  LEVEL  / 

BYTE  200 

ASCII  /ENTER  OCTAL  3 DIGIT  INCREMENT  / 

BYTE  200 
EVEN 
BLKW  1 
BLKW  1 
BLKW  1 
BLKW  1 
BLKW  1 
BLKW  1 

BLKW  400  .DEVICE  HANDLER 

DLK'.J  240 

BLKW  240 

BLKW  240 

BLKW  7400 

PLKw  50 

END  START 


T 


MITCHELL 

PRINTRONIX 


LPSMAL  AUGUST  8. 1977 

DISPLAYS  GRAY  LEVEL  PICTURES  ON 
EXPECTS  256  POINTS  PER  ROW 
EACH  PONT  DISPLAYED  USING  22  GRAY  LEVELS 
A MATRIX  (THIS  ASSUMES  RESOLUTION  IS 

HORIZONTAL  DIRECTION 

CAN  DISPLAY  OUTPUT  OF  TRANSPOSE  OF  DIGrU/ER 


CREATED  USING 
DOUBLE  IN 


OUTPUT 


LPDAI==1 
LPSTAT= 
F I NISH 


STAR  I 


L OOP  1 


L00P2 

LOOPS 


DIVIDE 


AGAIN; 


MCALL 

MCALL 

V2 

REGDEF 
67772 
167770 
PRINT 
CLOSE 
EXIT 
PRINT 
PRlNf 
CSIGEN 
CLR 
PRIN- 
MOV 
JSR 
PRIN’- 
MOV 
JSR 
PRINT 
TTY  IN 
CLR 
CMPB 
DNE 
INC 
MOV 
ASL 
ASL 
READW 
DCS 
INC 
MOV 
MOV 
MOV 
MOV 
MOVB 
Die 
SUB 
BGE 
MOV 
BR 
MOV 
TST 
BEQ 
INC 
SUB 
BGE 
MOV 
CMP 


V2  , REGDEF,  . CSIGEN.  READW,  Cl  OSE,  PRINT 
EXIT,  L'MT.  TTVIN 


«RMSG 

#3 

WANNON 

#ASK 

#CORSpC.  ItFPRT 

BUFCNT 

HREQl 

#DLACK, R1 

PC, ACCEPT 

»REQ2 

1*1  NCR.  R1 

PC, ACCEPT 

#INMS 

INVER  T 

t»U  1 , RO 

LOOPl 

INVERT 

SUFCNI.RI 

R1 

R1 

HARE'A,  #3,  #nUF4, 

FINISH 

BUFCNT 

IIBUF4,  R4 

#“10. LINES 

#DUF1,  R1 

#--400,  BYTES 

(R4)-*-,  R5 

#1 77400, R5 

BLACK.  P5 

DIVIDE 

#TABLE-7, R5 

LOOKUP 

#-l,  RO 

I NCR 

TOOBIG 

RO 

INCR,  R5 
AGAIN 
RO,  R5 
#24,  R5 


WRITES  ONE  BUFFER 


4 BLOCKS 

'000,  R1 


PER  BUFT  ER 


NO  OF  LINIS  PER  BUFFER 
WRITES  1 LINE 

ALLOWS  FDR  256  POINTS  PER  LINE 
WRITES  1 CHARACTER 

BELOW  #BLACK  IS  BLACK 


DIVIDES  R5  BY  22 


no 


Di  r 

TGOBIG 

A3L 

R5 

ASL 

Rf> 

ASL 

KD 

SOD 

!•: R 5 

iMJLTiPLUS  R3  BY 

/ 

ADD 

♦»'!  ABI  E.  RO 

BR 

LOrjKv.P 

1 OOBIG 

MOV 

IT . RD 

ADD 

stable  RD 

LOOKUP : 

TST 

INV  RT 

BEQ 

LC-^R;' 

SUD 

« AH'  P.  - 7.  R 

r 
, 1 

MOV 

E+Ol  a,  RO 

St.'B 

I'O 

MOV 

RO.  K'. 

LOOK,? 

B i r 

H'  BY TL' 

Dt'It 

second 

FIRST 

MOVB 

' R 5 1 ♦ , < R 1 > 

MOV 

R 1 . R2 

MOV 

RO 

SI  > MDI' 

ADO 

t»BUrV  --  ,•  ,if-  1 

. R2 

MOVB 

(RD)i- 

SOB 

R3..  r ' :m'ir 

DR 

Nt  y,  r 

SFCONP. 

MOV 

ry  1 . Rj 

INC 

R1 

MOV 

W7,  RS 

SFVMOR 

MDVP 

( RfO  t-.  RO 

A3L 

RO 

ASl 

n 

ASL 

RO 

BIS 

t:  ICO.  RO 

BISD 

RO. (R?> 

ADD 

t;BUF2-D0Fl 

, R"’ 

SOB 

R3,  SEVMf.iR 

NEXT 

INC 

BYTES 

BEG 

L INEND 

JMP 

LOOPS 

, BACK  FOR  ANOTHER 

CHARACTER 

L INEND 

MOV 

4»7,  R3 

MOV 

R .1 , R2 

MORE 

MOVB 

(R2'  + 

, POINT  PLOT  MODE 

MOVl.> 

ttlLO  (R2) 

. END  OF  L.  I NE 

ADD 

#BUF2-BUF1 

-1,  R2 

SOB 

R3, MORE 

SUB 

»BUF'l-2.  R1 

MOV 

Rl,  R2 

MOV 

#7,  R3 

MOV 

#BUF1 . RO 

ANOTH: 

MOV 

R2,  Rl 

MOV 

RO.  RD 

JSP 

PC . WR I T I T 

ADD 

#BUF2-BUF1 

, RO 

SOD 

R3,  AMOTH 

INC 

LINES 

BEQ 

BUFEND 

JMP 

L.00P2 

i BACK  FOR  ANOTHER 

L INE 

DUFEND: 

JMP 

LODF'l 

i BACK  FOR  ANOTHER 

BUFFER 

111 

WR I t n BIT 
BEQ 
MOVB 
SOB 
RTS 

ACCEPT  nov 

INLOOP  TTVIN 
CMPB 
BNE 
MOV 
CLR 
MOV 

NX 1 GOP  Move 
BIC 
ASL 
ASL 
ASL 
BIS 
30D 
MOV 
RTS 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 

TABLE  BYTE 
BYTE 
BY’E 
BYTE 
BYTE 
BYTE 
. BYTE 
. BYTE 

byte 

BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
. BYTE 
. BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


#200. @#LPSTAT 
WR I T I 1 

<R0)+, ®#LPUAT 
Rl. WRITIT 
PC 

#BUF  b,  R2 
(R2)  + 

#12,  RO 
INLLtOP 
#BUF  b.  R2 
R5 

R3 

<R2) ^ R4 

#1 T 7 770. R4 

RO 

R5 

R5 

R4,  RO 
R3, NXLOOP 
R5.  (Rl  ) 

PC 

~7 

7 

7 


7 

7 

7 

5 

7 

7 

7 

7 

7 

7 

5 

7 

7 

7 

3 

7 

7 

5 
7 

6 
7 
3 
7 
7 

5 
7 

6 
7 
3 
6 
7 


w 


I 


BYTE  5 
BYTE  3 
BYTE  6 
BViE  7 
B V TE  3 
BV^E  6 
I!  TE  7 
BV!E  ? 
BVTK  3 
BYTE  6 

BY  re  5 

BYTE  3 
BYTE 

BYU'  3 
byte  5 

HV  TE  3 
BYT-.  t-. 

B > 7 r 5 
BYTE  '3 
BYTE  6 
EYVE  3 

BY  rr;  4 

pvTt  3 
BYTE  6 
• •■■TE 

b'- TE  3 
byte  6 
D • [ 3 

By  rt'  4 
byte  3 
Bvff-  6 
BYT!'  5 
B v'TE  3 
B (■  T C 

Bs'TE  :■ 
fl-rTE  4 
B y i E 3 
nvTE  4 
BYTE 

BYTE  3 
BYTE  4 
B'^TE  3 
B Y ( E 4 
BY  FE  3 
BYTE  4 
BYTE  5 
BYTE  2 
BYTE  4 
BYTE  3 
BYTE  4 
BYTE  3 
BYTE  4 
BYTE  1 
BYTE  2 
BYTE  4 
BYTE  2 
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BYTE  4 
BYTE  3 
BYTE  4 
BYTE 

BYTE  1> 
BYTE  4 
BYTE  2 
BYTE  4 
BYrE  1 
BVfE  4 
BYTE  1 

byte  2 

byte  4 
Bv(E  2 
B'TE  4 
BYTE  1 
BYTE  4 
BYTE 

!j  Y i E 2 

B'  ri.  O 

B V i L 2 
Br'rE  0 
BYT^;  1 
bv;f  4 
LV^E  1 
B Y ■-  E 

B , I E Cl 

b ■ E 2 

B Y ! E O 

B E I 

B > , i.  4 

BYT  E 0 

e . i E 2 

BvTE  0 
BYTE  0 
p-'-Jf-  o 

byte  1 

B r TE  4 

BYTE  0 

byte  2 

BYT::  0 

BYTE  0 
BVTE  0 
BYTE  1 
BYTE  4 
BYTE  0 
BYTE  0 
BYTE  0 

bvtf;  0 
byte  0 

BYTE  1 

byte  0 

BVTE  0 
BYTE  0 
BYTE  O 
BYTE  O 


114 


BYTE 

0 

BYTE 

0 

BYTE 

0 

byte 

0 

BYTE 

0 

BYTE 

0 

EVEN 

FPRT 

RADSO 

■•'DAT 

WORD 

0 

WORD 

0 

WORD 

0 

AREA: 

3LKW 

10 

RHSC- 

AST  ; ^ 

/THA  -M  I,.' 

ANNON 

ASC  ! / 

/Lin;  ppiLiEP 

ASK 

ASC  I Z 

/ENTER  ir'Pi.iT 

REQ1 

ASC  ' ! 

/FNIER  G..  lAL. 

pv  TT 

200 

REG2; 

. A'j  1 i 

/E'TIlR  Ch'  i al 

BYTE 

200 

INMS 

AS’- 1 : 

/r"'’!.  .''n  ■' i •' 

. Evt  N 

Du;-(  Ml 

BLKW 

1 

KOUN  1 

BLKU 

1 

INVERT 

BLKW 

1 

1 INES 

BLKW 

1 

DY lES. 

BL.KU 

1 

Dl  Av  K 

BLKW 

1 

I NCR 

PL  KW 

1 

CORSPC. 

3LKW 

400 

nor  1 

BLKW 

240 

PUf-2 

BLKW 

240 

DUES 

BLKW 

1240 

BUF4 

PLKW 

2000 

PUF  D 

Bl.  KW 

50 

END 

START 

':r'A'.-  Lt-'vt.  1.3  I'dlNTS  PER  ROW/ 

FILE  ' 

3 DIGIT  Di.  AM'.  l-F.VEL  / 

DK-il  INCRtMEl-'T  / 

TO  IW'.TRT  VIDEO.' 


i DEVICE  HANDLER 
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i LPUARG  JULY  28.1977  MITCHELL 

; DISPLAYS  GRAY  LEVEL  PICTURES  ON  PRINTRONIX 
> EXPECTS  512  POINTS  PER  ROW 
i REQIRES  TWO  PAGES  — LEFT  AND  RIGHT 

; EACH  POINT  DISPLAYED  USING  22  GRAY  LEVELS  CREATED  USING 
iA  3X7  MATRIX  <THIS  ASSUMES  RESOLUTION  IS  DOUBLE  IN 
i HORIZONTAL  DIRECTION 


.CAN  DISPLAY  OUTPUT  OF  TRANSPOSE  OF  DIGITIZER  OUTPUT 

, MCALL 

V2  . . REGDEF.  CSIGEN.  READW.  . CLOSE.  PRINT 

MCALL 
. . V2 
REGDEF 

EXIT.  . WAIT,  . TTYIN 

LPDAT= 

167772 

lpstat 

*167770 

FINISH 

. PRINT 

#RMSG 

CLOSE 

EXIT 

#3 

START; 

PRINT 

#ANNON 

PRINT 

#ASK 

CSIGEN 

#CaRSPC, «FPRT 

CLR 

BUFCNT 

PRINT 

#REQ1 

MOV 

#BLACK. R1 

JSR 

PC, ACCEPT 

PRINT 

#REQ2 

MOV 

#INCR, R1 

JSR 

PC, ACCEPT 

PRINT 

TTYIN 

#INMS 

CLR 

INVERT 

CMPB 

#111. RO 

BNE 

PASS 

INC 

INVERT 

PASS: 

CLR 

RIGHT 

BR 

LOOPl 

HOLD 

BIT 

#200, e#LPSTAT 

BEQ 

HOLD 

MDVB 

#lA,e#LPDAT  > FORM  FEED 

TST 

RIGHT 

BNE 

FINISH 

INC 

RIGHT  > PRINT  RIGHT  HALF  OF  PICTURE 

CLR 

BUFCNT 

LOOPl 

MOV 

BUFCNT. R1  j WRITES  ONE  BUFFER 

A5L 

R1 

ASL 

R1 

ASL 

R1 

ASL 

R1  >16  BLOCKS  PER  BUFFER 

. READW 

#AREA, #3. #BUF4,  #10000.  R1 

BCS 

HOLD 

INC 

BUFCNT 

MOV 

#BUF4,  R4 

TST 

RIGHT 

BEQ 

SKIP 

ADD 

#400, R4  > RIGHT  HALF  OF  EACH  BUFFER 

SKIP: 

MOV 

#-20. LINES  >N0  OF  LINES  PER  BUFFER 

L00P2; 

MOV 

#BUF1,R1  > WRITES  1 LINE 
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MOV 

#-400. BYTES 

, ALLOWS  FOR  256  POINTS 

L00P3: 

MOVB 

<R4  ) >.  R5 

.WRITES  1 CHARACTER 

Die 

#177 TOO, R5 

SUE 

black. RS 

.BELOW  #DLACK  IS  BLACK 

OGE 

DIVIDE 

MOV 

#ThBLE-7,  R5 

BR 

LOOKUP 

DIVIDI- 

MOV 

#-l,  RO 

.DIVIDES  R5  BY  22 

A(iA  I N 

INC 

RO 

SUB 

I NCR. R5 

BGE 

AGAIN 

MOV 

RO.  RO 

CMP 

#24,  R5 

DL  1 

TOOB  IG 

ASL 

H'b 

ASL 

R5 

ASL 

7 j 

SUB 

RO,  R', 

.MULTIPLIES  R5  BY  / 

AOL 

#TAi<i.E.  RO 

BP 

LOOKUP 

TODPIG. 

MSB’ 

#214,  RS 

ADD 

#TABI  E Rf, 

LDOt-  Lip 

TB’- 

INVERT 

BF.S 

LD0K2 

SUB 

#TABLE--7,  R5 

MOV 

#TAB;.  E+214,  RO 

SUB 

RO,  RO 

MOV 

RO,  R5 

LOOKS’ 

B 1 T 

#1, BYTES 

BNE 

SECOND 

FIRST 

MOVB 

< R 0 1 . < R 1 ) 

MOV 

PI,  R2 

MOV 

#.S,  R3 

SIXMOR 

ADD 

#BUr-  2-BUr  1 , R2 

MOVB 

<R5  > .-,  0R2  ) 

SOB 

RO, SIXMOR 

BR 

NEXT 

SECOND: 

MOV 

PI,  R2 

INC 

R1 

MOV 

#7  R3 

SEVMOR 

MOVB 

<R5)  RO 

ASL 

RO 

ASL 

RO 

ASL 

RO 

BIS 

#100. RO 

BISB 

RO,  <R2) 

ADD 

#BUF2-BUF1, R2 

SOB 

R3. SEVMOR 

NEXT: 

INC 

BYTES 

BEG 

L INEND 

JMP 

LOOPS 

i BACK  FOR  ANOTHER  CHARACTER 

L INEND. 

MOV 

#7,  R3 

MOV 

R 1 , R2 

MORE 

MOVB 

#5,  (R2)  + 

i POINT  PLOT  MODE 

MOVB 

#12,  (R2) 

i END  OF  LINE 

ADD 

#BUf  2-BUFl-l,  R2 

SOB 

R3,  MORE 
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HOV 

H 1 . R 1 

MOV 

#T.  |<3 

M(.1V 

ttBOFl , RO 

ANOTH 

MUV 

R?  . R 1 

MOV 

RO,  RP 

JSR 

PC.  WP i I I r 

ADD 

»BUP2-PGFi  1 . RO 

r-nii 

R3.  ANDTIt 

INC 

L I ML5 

BEG 

BUT END 

ADD 

*'400.  R4 

, SK  IP 

Ni  X 1 L INE  MAI  F 

JMP 

L GfiPl’ 

. BACK 

FGR  ANOTHER  1 INF 

HUri'ND 

^.-MP 

L OOP  ) 

. BACK 

PC!'  another  HUF  1 ER 

WHIT]  r 

BIT 

**200,  (?ttL  f>51  AT 

BEQ 

OR  I T I r 

nnvci 

(R5)  i?»*LPDAT 

5GB 

R 1 . WR I i I 1 

RTS 

PC 

ACCi.F"! 

liJV 

*tBUI-  i,;2 

1 Nl  OU^^ 

T r V [ r.j 

< R r.'  > t- 

c IIP  n 

**!,_■.  RO 

PNE‘ 

INI  onp 

I'tC'V 

**0',  If  o.  R.V 

Cl  P 

R r 

MOV 

**3,  R3 

MXI  0(tP 

MO  VP 

( R2  ' I-.  R4 

-ASSEMBLE  .INTO  OCTAL  NUMBER 

Die 

t*  1 ■'  ■•-•■'■•0.  R4 

A5L 

RP 

A5L 

PA 

ASL 

RO 

0 15 

IT  4 . R’  0 

EDB 

R3,  NXL  OOP 

MOV 

RO,  (Ri  ) 

RTS 

PC 

DVTE 

7 

B'r  (E 

y 

BYTE 

'7 

BYTE 

7 

BYTE 

7 

BYTE 

7 

BYTE- 

7 

TAULt- 

BYTE 

7 

BYTE 

5 

BYTE 

7 

BYTE 

7 

BYTE 

7 

BYTE 

7 

BYTE 

7 

BYTE 

7 

BYTE 

5 

BYTE 

7 

BYTE 

7 

BYTE 

7 

BYTE 

3 

BYTE 

7 
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BYTE  7 
BYTE  5 
BYTE  7 
BYTE  6 
BYTE  7 
BYTE  3 
BYTE  7 
BYTE  7 
BYTE  5 
BYTE  7 
BYTE  6 
BYTE  7 
BYTE  3 
BYTE  6 
BVTE  ^ 
BVTE  5 
byte  3 
BYTE  6 
BYTE  7 
BYTE  3 
By  TE  6 
BYTE  7 
BYTE  5 
byte  3 
BYTE  6 
BYTE  b 
BYTE  .3 
BYTE  5 
BYTE  3 
BYTE  5 
BYTE  3 
BVTE  6 
byte  b 
BYTE  3 
BYTE  6 
BYTE  3 
BYTE  4 
byte  3 
BYTE  o 
BYTE  5 
BYTE  3 
BYTE  6 
BYTE  3 
BYTE  4 
BYTE  3 
BYTE  6 
BYTE  5 
BYTE  3 
BYTE  4 
BYTE  3 
BYTE  4 
BYTE  3 
BYTE  4 
BYTE  5 
BYTE  3 
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I 


BYTE  4 
BYTE  3 
BYTE  4 
BYTE  J 
BYTE  4 
BV  TE  f) 

byte  3 

P>  TE  4 
BYTE  3 
BV  TE  4 
BYTE  'I 

BVTf-  4 

BYTE  1 
BYTE  c 
BYTE  4 
BYTE 

EvrE  4 
BY  TV.  3 
n ■'  TE  4 
D Y 1 1 : 
PtTE 

B V r i-  4 
li'Tt  3 
DVTE  i 
Byte  1 
BYTE  4 
BY  TV  I 

ByT( 

P Y T V a 
pYn 

pvrr  4 

ByTi.  I 
P Y T I a 

byte  1 

byte 

Byte 

BY  TV  3 
BYTE  'T 
BYTE  I 
BYTE  4 
BYTI  1 

byte 

BYTE  O 
Byte  ? 
BYTE  0 
BYTE  1 
BYTE  4 
BYTE  0 
BYTE  2 
BYTE  O 
BYTE  0 
BYTE  0 
BYTE  1 
BYTE  4 
BYTE  O 
BYTE  2 
BYTE  O 
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BYTE 

0 

BYTE 

0 

byte 

1 

. BYTE 

4 

BYTE 

0 

BYTE 

0 

BYTE 

0 

BYTE 

0 

BYTE 

0 

BYTE 

1 

BYTE 

0 

BYTE 

0 

BYTE 

0 

BYTE 

0 

BY  IE 

0 

BYTE 

0 

BYTE 

0 

BYTE 

0 

D /TE 

0 

BYTE 

0 

BYTE 

0 

EVEN 

( PR  T 

(^AD50 

/DAT  ^ 

WORD 

0 

WORD 

0 

WORD 

0 

AREA 

BLKW 

10 

RMGG 

A SC  I L 

/ THAT  'S  At  1 / 

ANNON 

ABC  1 1 

'1  INE  PRUHER  22 

ASK 

ASC  1 ; 

/ENTER  INPUT  FIL 

RE  01 

ASC  I 1 

/ENTER  OCIAL  3 D 

BYTE 

200 

REO? 

ASCI  1 

/'ENTER  OCTAL  3 D 

BYTE 

200 

INNS 

ASC  1 C 
EVEN 

■•■^YF'E  AN  "1"  TO 

DUE C NT 

BLKW 

1 

KOUN  I : 

BLKW 

1 

RIGHI: 

BLKW 

1 

INVER! 

BLKW 

1 

L INES 

BLKW 

1 

BYTES 

BLKW 

1 

BLACK 

BLKW 

1 

INCR: 

BLKW 

1 

CCIRSPC: 

BLKW 

400 

BUEl 

BLKW 

240 

DUE? 

BLKW 

240 

BUF3 

BLKW 

1240 

BUr4 

BLKW 

10000 

DUES 

BLKW 

50 

END 

START 

GRAY  LL-VELS.  512  ('HINTS  PER  ROW/ 
E/ 

IGU  liLACK  LEVEL  / 

IGIT  INCREMENT  / 

INVERT  VIDEO/ 


i DEVICE  HANDLER 
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.PROGRAM  PIG5F-1  AUG  9.  1977 

vSTORPS  DIGITIZED  DATA  FROM  VIDEO  FIELD  ONE  IN  A FLOPPY 
iPISK  FILE  DATA  IS  STORED  BY  COLUMNS:  t)J2  COLUMNS. 

• ETC  PIXELS  PER  COLUMN 

M'ALL  V?  . REGI'EF.  ENTER.  WRITE,  CLOSE.  PRINT 
MCALl.  t XIT.  FETCH.  WAIT 


REGDEF 


ADDR=^lo~ 

■7  72 

DATA-- 167 

7 7.1 

31 AT^167 

'7  70 

31  ART 

FT  rCH  'fCORSPC,  #FPRT 

DCS 

PADFF  r 

, lEfCH  ERROR 

ENIlTP 

#AREA  #0, 

#FPH7 , #-l 

BCS 

B7.nEM 

■AN  ENTER  ERROR 

MOV 

#1 . F BUF 

. SET  BUFFER  FI.  AG 

Cl  R 

Ki'i'  'NT 

.CLEAR  BUFFER  COUNTER 

CLR 

@#ST  A r 

MOV 

# I . iA#ADDR 

MOV 

#2001  . C#ADliR 

CLR 

@#ADLiR 

MOV 

#-l.  R3 

MD'y 

#DUr  i . R? 

, PREPARE  1 0 FILL  BUT  1 

J5R  PC-FIIL 

.FILL  BUF1 

MOV 

#10,  L1M1  I 

NO  OP  D'M  '-ERS  TO  READ 

BR 

BEGIN 

BAD!  FI 

PRINT 

EXIT 

#rMSG 

BADEN 

PRINT 

EMT 

#EMSG 

BADWR 1 

T'RINT  #WMSG 

EX  t I 

FINISH 

CLOSE 

EXIT 

#0 

BEGIN 

CMP 

LIMlT.iMJUNT  .IS  FLOPPY  TULL 

BEQ 

FINISHED 

, ALL  DATA  HAS  BEEN  Rl  AD 

FIRST 

CMP 

FBUF. #0 

■ IS  BUF  2 TO  BE  WRITTEN 

BNE 

OTHER 

. IF  NOT  GO  10  WRITE  #2 

MOV 

HOUNT , R 1 . READY  TO  MULTIPLY 

MUL 

#36.  R1  .BY 

30 

WRITE 

#AREA,  #0,  #BUF2  . #17000,  R .1 

BCS 

BADWRT 

INC 

KOUNT 

.COUNT  BUFFER  WRITTEN 

MOV 

#BUF1, R2 

.PREPARE  TO  CALL  FILE 

JSR 

PC. FILL 

iFILL  BUFt 

MOV 

#1,  FBUF 

.SET  FLAG  TO  INDICATE  BUFl  1 

WAIT 

#0 

iWAIT  TILT.  FINISHED  WRITING 

JMP 

BEGIN 

i GO  AGAIN 

FILLED 


OTHER  MOV  KOUNT, R1 . PREPARE  TO  MULTPY 
MUL  #36.  Rli  MUl  TPLY 
WRITE  #AREA, #0, #PUF1, #17000. R1 
BCS  BADWRT 

INC  KOUNT  i COUNT  BUFFER  WRITTEN 
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MOV 

#DUF  2,  R2 

.PREPARE  TO  CALL  FILL 

CLR 

FBUF 

. INDICATE  BUF2  FILLTD 

JSR 

PC.  FILL 

FILL  BUF2 

WAIT 

no 

WAIT  TILL  BUFl  IS  WRITTEN 

JMP 

BEGIN 

. START  AGAIN 

FILL 

CLR 

KOLUM 

CLR 

R5 

, INITIAI.IZE  ROWS 

COLUMNS . 

INC 

R3 

, PROCESS  COLUMNS 

INC 

KOI.  UM 

COUNT  CUI  UMNS 

MOV 

R3, fe^ADOR 

.LOAD  HORIZONTAL. 

MOV 

♦*1 ,.  <:#STA  f 

.STROBE  HORIZONTAI 

CLR 

'S#STAT  . PprOARE  FOR  NEXT  COORD 

ROWS 

INC 

R5 

i PROCESS  ROWS 

MOV 

R5. G4AnDR 

ROW  COORDINATE 

MOV 

1*2,  e#S  1 AT 

Cl.R  @t*STAT 

.STRODE  VERTICAL 

BIS 

«1000. ChAODR 

.SET  L I.  NU 

MOV 

#100000. G»ADDR 

. execute 

CLP 

(?#AnDR 

; CLEAR  EXECUTE 

WA I 1 : 

BIT 

#40000.  -^WlO'iTA 

BNF 

te;.',i  ? 

BIT 

# 1 , R '3 

BNF. 

WAIT 

BR 

GO 

TEST? 

B 1 T 

#1  , R!. 

BEQ 

WAIT 

GO 

MOVB 

G#DA  A. (R2'+ 

CMP 

#35.1  R5 

HAS  LAST  ROW  BEEN  PROCESSED 

BNF 

ROW':. 

. IF  not  -set  other  rows 

CLR 

<R2)  < 

CLF 

(R2)  ( 

.ADD  4 BXTES  OF  ZEROS 

CLR 

R5 

CMP 

#100  KOLUM 

BNE 

COLUMNS 

PTS 

PC 

.RETURN  FROM  SUBROUTINE 

KOLUM  FRRT 

RAD50  /UXl.- 

RAD  50 

/OR  ID  / 

RAP50  /DAT/ 

AREA 

DLKW 

10 

FMSG 

ASC  I Z 

/BAD  FETCH/ 

FiMSG 

ASC  I 2 

/BAD  EMIFR/ 

WMSG 

ASC  I Z 

/WRITE  ERROR/ 

EVEN 

FARM 

WORD  0 

CORSPC: 

BLKW  400  .DEVICE  HANDLER 

WORD  0 

FBUF 

. BLKW 

1 

Linn 

. BLKW  1 

KOUNT 

DLKW  1 

BUFl 

BLKW  17000 

ENDl ; 

BUF2: 
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PROGRAM  DIG5F2  AUG  9 1977 

S1URES  DIGIT  I ZED  DATA  FROM  VIDEO  FIELD 
DISK  FILL  DATA  IS  STORED  BY  COLUMNS: 

240  PIXELS  PER  COLUMN. 

MCALL  V2  , Rr-GDEF,  . ENTER,  WRITE.  CtOSE, 
MCALL  lXIT, 


I WO 

r>i2 


IN  A FLOPPY 
COLUMNS, 

PRINT 


FETCH,  WAIT 


V2 

REGDEF 


ADDR  = 
DATA= 
STAT-^ 


167772 
1 67774 
1 67770 


START 

FETCH  #C 

ORSPC, #FPRT 

BCS 

BADFET 

.FETCH  ERROR 

ENTER 

4AREA,  #0, 

#FPRT, #-l 

BCS 

BADEN 

, AN  ENTER  ERROR 

MOV 

41 , FBUF 

, SET  BUFFER  FLAG 

CL.R 

KOUNT 

.CLEAR  BUFFER  COUNTER 

CLR 

®«5TAT 

NOV 

«1 ■ GHADDR 

MOV 

42001 , ®4ADDR 

CLR 

@#AD1)R 

MOV 

#-  1,  R3 

MOL' 

4BUF1 . R2 

.PREPARE  TO  FILL  DUE  .1 

JSR  P 

c r- 1 1 L 

.FILL  BUFl 

MCIV 

4 10,  LIMIT 

■NO  OF  BUFFERS  TO  READ 

BR 

BEGIN 

BADFET 

PRINT 

#F-MSG 

EXIT 

BADEN 

PRINT 

Mi:  MSG 

EXIT 

BADWRT 

PRINT  #WNSG 

EX  I T 

FINISH 

c lose: 

#0 

EXIT 

BEGIN 

CMP 

LIMl  r,  KOLiNT  .IS  FLOPPY  FULL 

DEQ 

FINISHED 

. ALL  DATA  HAS  BEEN  RI-.AD 

FIRST  . 

CMP 

FBUF, #0 

IS  BUF  2 TO  BE  WRITTEN 

BNE 

OTHER 

IF  NOT  GO  TO  WRITE  #2 

MOV 

KOLINI,  Rl  • READY  TO  MULTIPLY 

MUL. 

#36. Rl  , BY 

30 

WR  I TE 

#AREA, #0, #BUF2, #17000. R 1 

PCS 

BADWRT 

INC 

KOUNT 

.COUNT  BUFFER  WRITTEN 

MOV 

#DUF1, R2 

, PREPARE  TO  CALL  FILL 

JSR 

PC, FILL 

^ FILL  BUFl 

MOV 

#1,  FBUF 

.SET  FLAG  TO  INDICATE  BUFl  1 

WATT 

#0 

iWAIT  TILL  FINISHED  WRITING 

JMP 

BEGIN 

i GO  AGAIN 

FILLED 


OTHER  MOV  KOUNT. Rl, PREPARE  TO  MULTPY 
MUL  #36, Rl ; MUL TPLY 
WRITE  #AREA. #0, #BUF1 . #17000,  Rl 
BCS  BADWRT 

INC  KOUNT  i COUNT  BUFFER 


WRITTEN 


ALL  FILL 


FILLFD 


CLR 

FBUF 

, INDICATE  BUF?  FILLFD 

JSR 

PC, FILL  ; 

FILL  BUF2 

WAIT 

#0 

WAIT  TILL  BUFl  IS  WRITTEN 

JMP 

BEGIN 

•START  AGAIN 

FILL 

CLR 

KOLUM 

MOV 

«400, R5 

; INITIALIZE  ROWS 

COLUMNS 

INC 

RS 

, PROCESS  COLUMNS 

INC 

KOL  UM 

, COUNT  COLUMNS 

MOV 

R3,  ■CTtADDH 

, LOAD  HORIZONTAL 

MOV 

4 1 , C<c4STAT 

, STROBE  HORIZONTAL 

CLR 

eilSlAT  .PREPARE  FOR  NEXT  COORD 

ROWS 

INC 

RS 

. PROCESS  ROWS 

MOV 

R5, eUADDR 

•ROW  COORDINATE 

MOV 

42. OttSTAT 

CLR  e»STAT 

> STROBE  VERTICAL 

B IS 

41000,  @4AnPR 

, SET  LEND 

MOL' 

4100000,  @4ADDR 

, EXECUTE 

CLR 

e4ADDR 

. CLEAR  Fxr'CLITE 

WAT  I 

BIT 

440000.  (?41iATA 

BNE 

TE.ST? 

BIT 

41,  R5 

BNE 

WAIT 

BR 

CO 

TEST? 

BIT 

4 1 . R 0 

BEQ 

WAIT 

GO 

MOVB 

@4DATA.  iR?)  + 

CMP 

4. 'FA, RT 

, HAS  LAST  ROW  BEEN  PROCESSED 

DNE 

ROWS 

, IF  NOT  GET  OTHER  ROWS 

CLR 

IR?)  ( 

CLR 

(R?)  < 

, ADD  4 BYTES  OF  ZEROS 

MOV 

4400,  R5 

CMF 

4100.  KOLUM 

BNE 

COl-UMNS 

RTS 

PC 

.RETURN  rryOM  SUBROUTINE 

KOLUM  FPRT 

RAD50  /DXl/ 

RADSO 

/ORIG 

RAD5C 

/DAT  / 

area 

BLKW 

10 

FMSG 

ASCIZ  /BAP  FETCH/ 

EMSG 

ASCIZ  /BAD  ENTER/ 

WMSG 

ASCIZ  /WRITE  ERROR' 

EVEN 

FARM 

WORD  0 

CORSPC. 

BLKW  400  , DEV 

'ICE  HANDLER 

WORD 

0 

FBUF 

BLKW 

1 

LIMIT 

BLKW  1 

KOUNT 

BLKW  1 

BUFl 

BLKW  17000 

END  1 
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C 


^4jAmL 


1 


I 


DUF2: 


END2: 


DLKW  17000 
END  START 


\ 
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; PROGRAM  DIG2F1  AUG  9,1977 

.STORES  DIGITIZED  DATA  FROM  VIDEO  FIELD  ONE  IN  A FLOPPY 
.DISK  FILE  DATA  IS  STORED  BY  COLUMNS.  25*  COLUMNS, 


,240  PIXELS  PER 

COLUMN 

MCALI- 

VP.  , 

REGDEF,  ENTER,  WRITE,  CIOSE,  PRI 

MCALL 

E MI. 

FETCH,  WAIT 

V2 

REGDEF 

ADDR=  I*:’ 

7 .’2 

DATA=167 

7 7 4 

STAT=1 67 

770 

SI  ART 

FETCH 

#CORSPC,  #FPRT 

BCS 

BADFE'! 

, FETCH  ERROR 

ENTER 

WAREA, #0, #FPRT. tt-l 

BCS 

BADEN 

, AN  ENTER  FTROR 

MOV 

#1 . FP'PF 

-SET  BUFIhP  FLAG 

CLP 

KOUNT 

.CLEAR  PUFFER  CO'JNILR 

CLR 

@#STAT 

MOV 

# 1 . GHADDR 

MOV 

#2001  G#ADDR 

CLP 

e#ADr'R 

MOV 

#-2,  R3 

MOV 

#nUFl,  RZ’ 

-PREPARE  TO  FIL.L  BUIM 

JSR  PC, FILL 

FILL  BUFl 

MOV 

#4, L INI  1 

-NO  OF  BUFFERS  TO  READ 

BR 

BEGIN 

BADFET 

PRINT 

#rMS& 

EXIT 

BADE-N 

PRINT 

#EMSG 

EXIT 

BADWRT 

PRINT  4WMSG 

EXIT 

FINISH: 

CLOSE 

#0 

EXIT 

BEGIN 

CMP 

LIMIT. KOUNT  ,1S  FLOPPY  FULL 

BEQ 

FINISHED 

-ALL  DATA  HAS  BEEN  RLAD 

FIRST 

CMP 

FBUF. #0 

- IS  BUF  2 TO  BE  WRITTEN 

BNE 

OTHER 

i IF  NOT  GO  TO  WRITE  #2 

MOV 

KOUNT, Rl,  READY  TO  MULTIPL  Y 

MUL 

#36,  Rl  , 

BY  30 

WRITE 

#AREA,  #0.  #BUF2,  #17000.  R .1 

BCS 

BADWRT 

INC 

KOUNT 

.COUNT  DUFFER  WRITTEN 

MOV 

#BUF1, R2 

.PREPARE  TO  CALL  FILL 

JSR 

PC, FILL 

, FILL  BUFl 

MOV 

#1,  FBUF 

i SET  FLAG  TO  INDICATE  BUFl 

WAIT 

#0 

;WA1T  TILL  FINISHED  WRITING 

JMP 

BEGIN 

> GO  AGAIN 

FILLED 


OTHER  MOV  KOUNT, Rl; PREPARE  TO  MULTPY 
MUL  #36, Rl; MULTPLY 
WRITE  #AREA. #0, #BUF1, #17000.  Rl 
BCS  BADWRT 

INC  KOUNT  ; COUNT  BUFFER  WRITTEN 
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FILL: 

COLUMNS 


ROWS 


WAI  I 


TESr^’ 

GO: 


FPRT 


AREA 

FMSG 

EMSG 

WMSG 


FARM 

CORSPC: 

KOLUM 

FBUF: 

LIMIT: 

KOUNT; 

BUFl : 

ENDl : 


MOV 

1»B'JF2.  R2 

; PREPARE  TO  CALL  FILL 

CLR 

FBUF 

i INDICATE  BUF2  FlLLFl) 

JSR 

PC, FILL 

FILL  BUF2 

WAIT 

#0 

WAIT  TILL  DUFl  IS  WRITTEN 

JMP 

BEGIN 

. START  AGAIN 

CLR 

KOt.UM 

CLR 

R5 

, INITIALIZE  ROWS 

ADD 

#2,  R3 

, PROCESS  COLUMNS 

INC 

KOLUM 

, COUNT  COL  UMNS 

MOV 

R3,  ■gltADDR 

.LOAD  HORIZONTAL 

MOV 

#1 , i?t»STAT 

.STROBE  HORIZONTAL 

CLR 

®#&rAT  ..PREPARE  FOR  NEXT  COORD 

INC 

R5 

, PROCESS  ROWS 

MOV 

R5,  ©IIADDR 

.ROW  COORDINATE 

MOV 

♦»2,  e#STAT 

CLP  ewSTAT 

.STRODE  VERTICAL. 

BIS 

#1000,  @#ADnR 

, SET  LEND 

MOV 

#100000,  @#ADDR 

, EXECUTE 

CLR 

@#ADDR 

, CLEAR  EXECUTE 

BIT 

#40000. g#DATA 

BNE 

TEST2 

BIT 

#1 , R5 

BNE 

WAIT 

DR 

GO 

BIT 

#1,  R5 

BEG 

WAIT 

MOVB 

@#DATA,  ai2)-*- 

CMP 

#354,  R5 

j HAS  LAST  ROW  BEEN  PROCESSED 

BNE 

ROWS 

. IF  NOT  GET  OTHER  ROWS 

CLR 

(R2)-t- 

CLR 

<R2)  + 

. ADD  4 BYTES  OF  ZEROS 

CLR 

R5 

CMP 

#100, KOLUM 

BNE 

COLUMNS 

RTS 

PC 

, RETURN  FROM  SUBROUTINE 

RAD50  /DXl/ 

RAD50  /ORIG  / 

RAD50  /DAT/ 

BLKW  10 

ASCIZ  /DAD  FETCH/ 

ASCIZ  /DAD  ENTER/ 

ASCIZ  /WRITE  ERROR/ 

EVEN 

WORD  O 

BLKW  AOO  i DEVICE  HANDLER 

WORD  0 
BLKW  1 
BLKW  1 
BLKW  1 

BLKW  17000 
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BUF2 


END2 


BLKW  17000 


END  START 


-PROGRAM  DIG2F2  AUG  9,  1977 

-STORES  DIGITIZED  DATA  FROM  VIDEO  FIELD  TWO  IN  A FLOPPY 
iDISK  FILE  DATA  IS  STORED  BY  COLUMNS:  256  COLUMNS- 
; 240  PIXELS  PER  COLUMN 

MCALL  VP  - REGDEF-  . ENTER-  WRITE-  . CLOSE-  PRINT 
MCALL  EXIT.  FETCH-  WAIT 
V2. 

REGDEF 

ADDR=167772 

DATA=167774 

STAT=167770 

START  FETCH  ttCORSPC,  #FPRT 


DCS 

BADFET 

FETCH  ERROR 

ENTER 

ttAREA,  #0,.  #FPRT-  #-l 

BCS 

BADEN 

- AN  ENTER  ERROR 

MOV 

#1-  FBUF 

. SET  DUFFER  FLAG 

CL  R 

KOUNT 

; CLEAR  BUFFER  COUNTER 

CLR 

@#STAT 

MOV 

# 1 - >?#ADDR 

MOV 

#2001  - (?#ADDR 

CLR 

@#ADDR 

MOV 

#-2-  R3 

MOV 

#DUF1 , R2 

-PREPARE  TO  FILL  BUFl 

JSR  PC.  FILL. 

- fill  BUFl 

MOV 

#4- L IMII 

, NO  OF  BUFFLRS  TO  READ 

DR 

BEGIN 

BADFET 

PRINT 

#FMSG 

EXIT 

BADLN 

PRINT 

#EMSG 

EXIT 

BADWRT 

PRINT  #WMSG 

EXIT 

FINISH: 

CLOSE 

#0 

EXIT 

BEGIN 

CMP 

LIMIT- KOUNT 

- IS  FLOPPY  FULL 

BEQ 

FINISHED 

- ALL  DATA  HAS  BEEN  READ 

FIRST 

CMP 

FBUF- #0 

- IS  DUF  2 TO  BE  WRITTEN 

BNE 

OTHER 

- IF  NOT  GO  TO  WRITE  #2 

MOV 

KOUNT- R1 ; READY  TO  MULTIPLY 

MUL  ♦»36-  R1  - BY  30 

WRITE  L»AR£A-  nO-  ttBUFP-  »H7000.  R .1 
BCS  BADWRT 

INC  KOUNT  i COUNT  BUFFER  WRITTEN 

MOV  #DUF1-R2  i PREPARE  TO  CALL  FILL. 

JSR  PC- FILL  ; FILL  BUFl 

MOV  #1-FBUF  i SET  FLAG  TO  INDICATE  BUFl  FILLED 

WAIT  #0  iWAIT  TILL  FINISHED  WRITING 

JMP  BEGIN  - GO  AGAIN 

OTHER  MOV  KOUNT- R1 , PREPARE  TO  MULTPY 
MUL  #36- R1 i MULTPLY 
WRITE  #AREA- #0- #BUF1- #17000- R1 
BCS  BADWRT 

INC  KOUNT  i COUNT  BUFFER  WRITTEN 

MOV  #BUF2. R2  ; PREPARE  TO  CALL  FILL 
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CLR 

FBUF 

, INDICATE  PUF2  FILLED 

JSR 

PC, FILL  i 

FILL  BUF2 

WAIT 

#0 

WAIT  TILL  BUFl  IS  WRITTEN 

JMP 

BEGIN 

i START  AGAIN 

FILL: 

CLR 

KOLUM 

MOV 

#400, R5 

; INITIALIZE  ROWS 

COLUMNS 

ADD 

#2,  R3 

; PROCESS  COLUMNS 

INC 

KOLUM 

, COUNT  COL  UMNS 

MOV 

R3,  @#ADDR 

; LOAD  HORIZONTAL 

MOV 

#1  ■ @#STAT 

; STRODE  HUR170NTA1 

CLR 

<?#STAT  -PREPARE  FOR  NEXT  COORD 

ROWS 

INC 

R5 

, PROCESS  ROWS 

MOV 

R5,  @#ADDR 

•ROW  COORDINATE 

MOV 

#2,  0#STAT 

CLR  e#s 

TAT 

i STROBE  VERTICAL 

BIS 

#3  000,  @#AE>DR 

, SET  LEND 

MOV 

#100000,  0#ADDR 

, EXECUTE 

CLR 

e#ADDR 

; CLEAR  EXECUTE 

WAI  1 

BIT 

#40000. e#DATA 

BNE 

TEST2 

BIT 

#1 , R5 

BNE 

WAIT 

BR 

GO 

TEST? 

BIT 

# 1 , R 5 

BEQ 

WAI  T 

GO 

MOVE 

@#DATA,  (R2)  + 

CMP 

#754 . R5 

, HAS  L AST  ROW  BEEN  PROCESSED 

BNE 

ROWS 

i IF  NOT  GET  OTHER  ROWS 

CLR 

(R2)  -(• 

CLR 

<R2)  + 

, ADD  4 BYTES  OF  ZEROS 

MOV 

#400, R5 

CMP 

#100,  KOLUM 

BNE 

COLUMNS 

RTS 

PC 

-RETURN  FROM  SUBROUTINE 

FPRT 

RAD50  /D.Xl/ 

RAD50 

/ORIG  / 

RAD50 

/DAT/ 

AREA 

BLKW 

10 

FMSG 

ASCIZ  /BAD  FETCH/ 

EMSG 

ASCIZ  /BAD  ENTER/ 

WMSG: 

ASCIZ  /WRITE  ERROR/ 

. EVEN 

PARM 

WORD  0 

CORSPC  BLKW  400  -DEVICE  HANDLER 

KOLUM:  . WORD  O 

FBUF  BLKW  1 

LIMIT;  BLKW  1 

KOUNT:  BLKW  1 

BUFl 

BLKW  17000 

ENDl: 

BUF2 

BLKW  17000 
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ENDS; 


. END  START 


; PROGRAM  MAG256  AUG  10<1977  MACHUCA 

.COPIES  PICTURE  F-Il.ES  CONTAINING  256  PIXELS  PER 
.ROW  FROM  FLOPPY  DISKS  ONTO  7-TRACK  MAGNETIC  TAPE. 

.THE  B-BIT  PIXELS  ARE  STACKED  ONTO  THE  CONSECUTIVE  LINES 
i OF  THE  TAPE  SO  THAT  THE  FIRST  SIX  BITS  OF  PIXEL  ONE  ARE 
.RECORDED  ON  THE  FIRST  SIX  TRACKS  OF  THE  FIRST  LINE.  THE 
; SEVENTH  AND  EIGHTH  BITS  OF  PIXEL  ONE  ARE  RECORDED  ON  THE 
i FIRST  TWO  TRACKS  OF  THE  SECOND  LINE.  ETC  . UNTIL  ALL 
..PIXELS  ARE  PACKED  ONTO  THE  TAPE  THE  SIVENTH  TRACK  IS 
.USED  FOR  PARITY 
MCALL  V2  . REGDEF 
V2 

REGDEF 

ERRWD=52 


MCALL  CSIGEN. 

READW.  PRINT.  EXIT,  CLOSE 

RESET 

BIS  ♦»  1 00000.  e#  1 67762 

BIS  »2.  e*»167760 

START 

PRINT  »ASK 

.DEVICE  FILE"' 

CSIGEN  #D5PACE. 

#DEXT, GET  CS 

CLR  INBLK 

i INITIALIZE  BLK  COUNT 

READ 

READW  ♦♦L  1ST  , #3. 
INC  INBLK 

BCC  GO 

#BUF, #256  .INBLK. READ  CHANNEL 

TSTB  @*»ERRWD 

BEQ  EOF 

MOV  #INERRRO 
PRINT 

CLR  RO 

JMP  RESE I 

; test  for  EOF 

GO 

MOV  #DUF. R3 

, PREPARE  TO  READ  OUT  DATA 

MOV  ♦♦OBUF,  R4 

. R4  POINTS  TO  OUTPUT  DUFF 

FORMAT 

CMP  R3.  #ENr' 

BEQ  WRITE 

, CHECK  FOR  END  OF  BUFF 

CMP  R3,  <»END1 

BEQ  WRITE 

; ONE  ROW 

RETURN 

MOV  <R3)+.R1 

.FIRST  WD  TO  BE  PROCESSED 

SWAB  R1 

ASHC  #6. RO 

COM  RO 

..  PUSH  BITS 

BIS  « 100000.ro 

, SET  HIGH  BIT 

MOV  RO,  <R4)+ 

ASHC  #6, RO 

COM  RO 

BIS  #100000. RO 

i MOVE  BITS  TO  OUTBUF 

MOV  RO. (R4)+ 

ASHC  #4.P0 

MOV  #2. SHIFT 

CMP  R3.  #END 

BEQ  WRITE 

CMP  R3, #END1 

BEQ  WRITE 

.MOV  BITS  TO  OUTBUF 

MOV  (R3)+,R1 

ASHC  #2. RO 

; GET  ANOTHER  WORD 

SWAB  R1 
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7" 


WRITE 


EOF 


ASK: 

FINIS: 


DEXT: 

SHIFT: 

INBLK 

LIST: 

INERR 


COM  RO 

BIS  #100000,  RO 
MOV  RO,  (R4)  <- 
ASHC  #6,  RO 
COM  RO 

BIS  #100000,  RO 
MOV  RO,  <R4  > t 
ASHC  #6,  RO 
COM  RO 

BIS  #100000,  RO 
MOV  RO,  (R4 ) ♦ 
ASHC  #2,  RO 
MOV  #4,  SHIFT 
CMP  R3,  #END 
BEQ  WRITE 
CMP  R3,#ENni 
BEQ  WRITE 
MOV  (R3)+,RI 

ASHC  #4,R0 
COM  RO 

BIS  #100000,  RO 
MOV  RO,  (R4)> 
ASHC  #6,  RO 
COM  RO 

BIS  #100000,  RO 
MOV  RO,  (R4)  + 
ASHC  #6,  RO 
COM  RO 

BIS  #100000,  RO 
MOV  RO,  <R4)+ 

DR  FORMAT 
ASHC  SHIFT, RO 
COM  RO 

#100000,  RO 
RO,  <R4)  + 

PC  , OUT 
#OBUF, R4 
R3,  #END 
RETURN 
READ 
e#DATA 


MOVE  BYTE  TO  OUIBUF 


MOVE  BYTE  TO  OUTHUF 


MOVE  BYTE  TO  OUIBUF 


SWAB  R1 


PUSH  LEFT  OVER  BITS 
WRITE  OUT  BITS 
RESET  BUFF  POINTER 
REEAD  ANOTHER 


BIS 
MOV 
JSR 
MOV 
CMP 
BNE 
JMP 
CLR 
NOP 

MOV  #100000, e#DA I A 
CLOSE  #3 
PRINT  #FINIS 
JMP  RESET 

ASCIZ  / ENTER  INPUT  FILE  / 


GET 

END 


ANOTHER 
OF  FILE 


BLOCK 


ASCIZ 

EVEN 

WORD 

WORD 

WORD 

WORD 

BLKW 

ASCIZ 


/ 


**<^***F INISHED******  / 


0,  O,  0,  O 
O.  0,  0,  O 
0 
O 
5 

/ INPUT  ERROR 
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EVEN 

DSP ACE: 

. BLKW  1000 

BUF 

. REPT  200 

WORD  0 

ENDR 

ENDl 

REPT  200 

WORD  0 

ENDR 

END 

OBUF 

REPT  1274 

WORD  1 1 1 1 1 1 
. ENDR 

WORD  1 1 1 1 1 1 

DATA=167762 
STATUS= 167760 

GUT 

MOV  #0BUF.R1 

. PREPARE 

MOV  #530.  Rr. 

. SI  ZE  OF 

AGAIN 

MOV  <R1  ) -t-.  @#DATA 

BIC  #2. @#STATUS 

RECORD 

TSTB  @#STATUS 

BNE  RECORD 
BIS  ♦»2.  ©^STATUS 
MOV  (Rt)+. @#DATA 
BIC  #2, @#STATUS 
SOB  R2, RECORD 
BIS  #2. @#STATUS 
RTS  PC 
END  RESET 


TO  SEND  GUT  MTS 
RECORD 


I 
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T 


1 


, PROGRAM  MAGS  12  AOG  10.1977  MACHUCA 

.COPIES  PICTURE  FILES  CONTAINING  CONSECUTIVE  ROWS  OF  51 
PIXELS  FROM  FLOPPY  DISKS  ONTO  7-TRACK  MAGNETIC  TAPE 
,8-BIT  PIXELS  ARE  STACKED  ONTO  THE  CONSECUTIVE  LINES 
, OF  THE  TAPE  AS  DESCRIBED  IN  THE  PROGRAM  MAG256 
MCALL  V2  REGDEF 
V2 

REGDEF 

ERRWD=52 

MCALL  CSIGEN,  READW,  PRINT,  EXIT,  CLOSE 

RESET  BIS  #100000,  @11167762 

BIS  #2, @#167760 

start  print  #ASK  .DEVICE  FILE"' 

CSIGEN  #DSPACE, #DEXT, GET  CS 
CLR  INBl.K  , INITIALIZE  BLK  COUNT 

READ  READW  #L  I SI  #3. HBUF,  #256  .INBLKREAD  CHANNEL  3 

INC  INBLK 
BCC  GO 

TSTB  @#ERRWD  .TEST  FOR  EOF 

DEO  EOF 
MOV  #INERR,«0 
PRINT 
CLR  RO 

JMP  REGE I 


GO 

MOV  #BUF,R3 

PREPARE  TO  READ  OUT  DATA 

MOV  #0PUF,R4 

. R4  POINTS  TO  OUTPUT  BUFF 

FORMAT 

CMP  R3  #END 

BEQ  WRITE 

, CHECK  FOR  END  OF  BUFF 

RE  TURN 

MOV  <P3)+.R1 

.riRST  WD  TO  BE  PROCESSED 
SWAB  R1 

ASHC  #6.  RO 

COM  RO 

■ PUSH  BITS 

BIS  #100000  RO 

. SET  HIGH  BIT 

MOV  RO  (R4)t 
ASHC  #e»,  RO 

COM  RO 

BIS  #100000  RO 

MOVE  BITS  TO  OUTBUF 

MOV  RO  (R4  > 4- 
ASHC  #4.R0 

MOV  #2- SHIP  r 

CMP  R3,  #END 

BEQ  WRITE 

. MOV  BITS  TO  OUTBl'F 

MOV  (R3>+. R1 

ASHC  #2. RO 

COM  RO 

BIS  #100000. RO 

, GET  ANOTHER  WORD 

SWAB  R1 

MOV  RO,  <R4)4^ 
ASHC  #6, RO 

COM  RO 

BIS  #100000. RO 

i MOVE  BYTE  TO  OUTBUF 

MOV  RO.  <R4)+ 
ASHC  #6. RO 

COM  RO 

. MOVE  BYTE  TO  OUTBUF 

THE 
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. MOVE  BYTE  TO  OUTDUF 


WFI  1 lb 


EOF 


END 

OBUF 


BIS  #100000.  RO 
MOV  RO. (R4)+ 
ASHC  #2,  RO 


MOV 

CMP 

BEQ 

MOV 


#4,  SHIFT 
R3.  #ENn 
WRITE 
(R3)+. R 1 


SWAB  R1 


RO 


r^o 


ASHC  #4 
COM  RO 
BIS  #100000 
MOV  RO.  (R4  I • 
ASHC  #6.  RO 
COM  RO 

BIS  #100000.  RO 
MOV  RO.  (R4 ) ♦ 
ASHC  #6,  RO 
COM  RO 
BIS  #100000 
MOV  RO. (R4 ) ♦ 

BR  FORMAT 
ASHC  SHIFT  RO 


O 


COM 

RO 

BIS 

#10000C..  RO 

MOV 

RO.  (R4  > • 

■'USH  LEFT  OVER  B ! TS 

JSR 

PC  . OUT 

WHITE 

OUT  D I TS 

MOV 

#OPUF, R4 

RESET 

BUFF  POINIlR 

CMP 

RO  #EN1) 

RE-.EAD 

ANOTHER 

ONE 

RETURN 

JMP 

READ 

.LT  ANOTHER  BLOCK 

CLP 

@#nATA 

F ND  OF 

FILE 

NOP 

MOV 

#100000. 0#DAIA 

CLOSE 

PRINT 


#3 

#F I N 1 ' 


JMP 

RESf.  1 

ASK 

ASCW 

/ ENTER  INPUT 

FILE 

FINIS 

ASC  I 2 

/ ff  <-•  t ***F  INISHED****** 

EVEN 

WORD 

0,  0.  0.  0 

DEXT 

WORD 

0.  0.  0 0 

SHIFT 

WORD 

0 

INBLK 

WORD 

0 

LIST 

BLKW 

5 

INERR 

ASCIZ 

EVEN 

/ INPUT  ERROR 

/ 

DSP ACE 

BLKW 

1000 

BUF 

REPT 

200 

WORD 

ENDR 

0 

REPT 

200 

WORD 

ENDR 

0 
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REPT  1274 
UORD  1 1 1 1 1 1 
ENDR 

MORD  1 11 1 n 
DATA=167762 
STATUS= 167760 
OUT  MOV  #0BUF,R1 

MOV  #1260. R2 
AGA  t N MOV  ( R 1 ' *• , e#[iA  TA 
BIC  #2, @#STATUS 
RECORD  TSTB  ©#STAT' 

BNE  RECORD 
BIS  #2  ?#SfAlUS 
MOV  (R1  )+.  <?#DATA 
BIC  #2®#S1ATUS 
SOB  R2. RECORD 
BIS  #2  <?#STATUS 
RTS  PC 
END  RESET 


PREPARE 
SIZE  OF 


TO  SEND 
RECORD 


OUT  BITS 


PDP-11  FORTRAN  SYSTEM  PROGRAMS 
AND  MAJOR  SUBROUTINES 


PRSCtDI.'.O  PASS  BLaNK-NOT  PIU'ISD 


n o o n D r;  o n o 


PROGRAM  HISTP 

c #■<><•** «■«■■>■  ♦•(Hr*  «•«•«  !»■*+  *«■******■«■  » 


* «• 

* HISTP  COMPUTES  THE  HISTOGRAM  OP  AN  ENTIRE  * 

* PICTURE  FILE  THE  NUMBER  OF  COLUMNS  AND  THE  * 

* NUMBER  OF  GREY  LEVELS  IN  A BIN  ARE  SPECIFIED 

* BY  THE  USER  * 

* * 

*/////////  / . / / /•  / / / / / / / / / /'  / / / / / //.'//////////////////* 
* * 

* SUBROUTINES  REQUIRED  * 

* FROM  lOOP-WRITEF  * 

C * FROM  GRAPH  PHIST,  GRID.  AXIS,  FRAME. 

C * INIT.TICX  * 

C * SEVERAL  JYSLIB  SUBROUTINES  # 

C « » 


C ft  6 *-6  tc-r.-t-fc  ft  ft  ft  ft--*  ft  ft  ft 

C 

LOGICAL*!  A (30720  ■ ID(  12).  AG(  1 ) 

INTEGERft2  AH ( 256 ) X ( 1 7 ) . Y ( 1 7 ) 

COMMON  /GRAP/LU.  IX,  lY,  ISX  ISY-AG 
LU^-6 

CALI  START (LU) 

10  CALL  WRITEF(LU, ItH  ID) 

WRI  rE(  5,  I ) 

1 FORMAT  (IX.  'INPUT  YOUR  CHOICE  FOR  T HI  »»  OF 
1 GREY  LEVELS  IN  A BIN  '-*) 

READ ( 5, 2) IB 

2 FORMAT! 14) 

NB=256,'  IB 
WR  1 TE  ( 5.  4 ) 

4 FORMAT  (IX,  'ENTER  NUMBER  OF  COLUMNS  IN  THE  INPUT  PICTURE 

READ! 5, 2)NCC 
NR=256ftl20/NrC 
IFF=240/NR 
IS=1 

DO  15  1=1, NB 
AH( I )=0 
15  CONTINUE 

DO  40  1=1, IFF 
1BB=( I-l ) *60 

JS=IREADW( 15360, A, IBP. ICH) 

DO  20  KK=  1,30720 
L=(A(KK)  AND  255)/IB)l 
AH(L)=AH(L)+1 
C 

C IF  THE  COUNT  GETS  TOO  LARGE  SCALE 
C THE  HIST  BY  2 
C 

IF(AH(L)  GT  300OO)G0  TO  60 

20  CONTINUE 

40  CONTINUE 

CALL  INIT(5) 

WRITE(5.  3)ID,  IB,  IS 

3 FORMAT!  IX,  'HISTOGRAM  OF  THE  FILE  - '.3A1.  ',6A1 

1,  ' ',3A1/1X,  'THE  NUMBER  OF  GREY  LEVELS  IN  A DIN  IS 


142 


in  iTi 


114/ IX,  'THE  ORDINATE  WAS  SCALED  'll,'/!' 
1SX=900 

CALL  PHISTIAH,  NB.  MAX ) 

DO  50  1 = 1,  17 
X<  1 )=256-( 17-1 )*16 
Y( 1 1=MAX*FL0AT< 1-1 >/16.  0 
50  CONTINUE 

CALL  FRAME 

CALL  5R1D(16J 

CALL  AX1S<  X,  Y 17  17) 

CALL  TICX (20,  16.  4 ) 

READ ( 5, 2)L 
DO  55  1=1, ND 
WR1TE<5.  5)  ( I-l  )*<IP  AH(1 
FORMAT( 1 X, 2<  16,  IX  i ) 

5 CONTINUE 

CALL  C10SE(LU» 

CALL  CLOSEC(ICH) 

CALL  IFREEC( ICHi 
GO  TO  10 

■60  DO  65  KKK=1NH 

AH<KKK)=AH(KKK'  .'2 
oj5  continue 

IS=IS*2 
GO  TO  20 
END 
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SUBROUTINE  PHIST ( I V, N. MAX ) 


C 

C 

C 

C 

C 


* * 

* PHIST  plots  a histogram  OF  THE  VALUES  IN  ARRAY  IV  * 

* THE  HISTOGRAM  IS  NORMALIZED  TO  FIT  INSIDE  THE  » 

* WINDOW  AS  SET  FORTH  BY  THE  COMMON  VARIABLES.  THE  * 

* BARS  WIDTHS  ARE  EQUAL  TO  THE  SIZE  OF  THE  GRAPHIC  * 

« WINDOW  IN  THE  X DIRECTION  (ISX)  DIVIDED  BY  THE  * 

* NUMBER  OF  DINS  THE  MAXIMUM  COUNT  IN  THE  ARRAY  * 

* IV  IS  PASSED  BACK  THROUGH  I HE  PARAMETl.R  MAX.  * 

» * 
» / •••  / //////  / / ^ i / i /■'//  i i //////////.>//  .’////I  U //////////  / / * 
« * 
« PARAMETERS  » 

* IV=THF  INTEGER*?  ARRAY  CONTAINING  THE  N COUNTS  * 

* N ==THE  NUMBER  OF  COUNTS  IN  IV  * 

ft  MAX=--THE  MAXIMUM  COUNT  FOUND  IN  IV  * 

ft  * 

ft  LIMITS  * 

ft  THE  COUNTS  IN  IV  MUST  NOT  EXCEED  00,000  AS  ♦ 

ft  THEN  THEY  BEGIN  TO  LOOT^  LIKE  NEGATIVE  NUMBERS  * 

ft  * 

ft  / / .■•  / .•■  / //./•.'.  ■ / / / ,■  .•  / / i / / / / , ■•,//////  /•  .'///////  / / ft 

ft  ft 

ft  SUBROUT  INIS  REQUIRED  ft 

ft  LX, L r . KHX, LOADB  ft 

ft  ft 

ftftftftftt-ftftftftftti  ftftft**t-ftftft*»*«ft*tft*^ftfti-*«^ft-ft(  tft<-t-«ft-ft.ft««.*«.ft** 


LOGICAL*!  A'.  li  HV  , LAY  . LAX  . HX 
INTEGER*?  IV(N> 

COMMON  /GRAP/LU.  IX,  JY.  ISX,  ISY,A 


JW-ISX,'N 

NWM=JW-1 


FIND  THE  MAX  lOlH'jT 

MAX=IV( 1 ) 

DO  10  1=?, N 

IFTMAX  LT  IV< I ) )MAX=IV( I > 
10  CONTINUE 


LOAD  THE  OUTBUFFER 
A( 1 )=?9 

CALL  LOADBI IX. I Y, A, ?) 

HY=A<?) 

LAY=A(3) 

HX=A(4) 

LAX=A(5) 

IN=6 

DO  40  1=1. N 

KY=FL0AT( IV( I ) ) /FLOAT ( MAX ) * 1 SY ft  I Y 
KX  = IXft<  I-l  )*xIW 
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IF(KY  EQ  IY)GO  TQ  30 
CALL  LY (KY, A, IN) 

A( IN+2)=LAX 
A< IN+3)=A( IN+1 ) 

IN=IN+4 

CALL  CKHX  (KX  + NWM.  A,  IN,HX) 

C 

lax=a<  iN-n 

A< IN)=HY 
A( IN+1 )=LAY 
A( IN+2) ^LAX 
A( IN+3)=LAY 
IN=IN+4 

20  CALL  CKHX  ( K>;  - JW  A.  IN.  H>:  ) 
r 

LAX  = A( IN-1  ) 

GO  TO  40 
30  A(IN)=LAY 

1N=IN+1 
GO  TO  20 
40  CONTINUE 

WRITE<LU.  SO) (AC  I ),  1 = 1 IN-1> 

SO  FORMAT ( , T.  124A1  ' 

RETURN 

END 


I 

i 

i 


i 
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r'l  n Ti  f)  n o o 


PROGRAM  WRP256 


C 

C 

c 

c 

c 


1 1 

I ^ 
J 0 

19 

20 


12 

21 


23 

25 


» * 

* WRP256  WRITES  A GREY  LEVEL  PLOT  TO  THE  OUTPUT  * 

* FILE  CONNECTED  TO  LOGICAL  '-'NIT  LU  IN  WRITEF  * 

* THE  INPUT  FILE  MUST  BE  ROW  STRUCTURED  AND  OF  * 

» 256  COLUMNS  * 

* *• 

* THE  WINDOW  OF  DATA  READ  FROM  THE  FILE  IS  PLOTTED 

UPSIDE  DOWN  WITH  THE  LOWER  lEFT  HAND  (ORNER  « 

* SPECIFIED  BY  USER  INPUT  FROM  THE  TTY  ft 

* «■ 

# PICTURE  FILES  OBTAINED  FROM  DIG2F1  OR  UIG2F2  ft 

ft  MAY  BE  DISPLAYED  WITH  A NEARLY  NAT'JRAl  ASPECT  ft 

ft  RATIO  OF  240/256  LISING  WRP256  PICTURI  FILES  ft 

ft  OBTAINED  FROM  DIG5F1  OF  DIODFO  WILL  PL  DISPLAYED  ft 

ft  WITH  AN  ASPECT  RATIO  QF  240-512  AND  Will  THERE-  ft 

ft  FORE  APPEAR  TO  BE  COMPRESSED  IN  THE  Y DIRECTION  * 

ft  AND  STRETCHED  IN  THE  X DIRECTION  I HI  DATA  ft 

ft  FROM  THF  DIGITIZER  MUST  BE  TRANSPOSED  USING  ft 

ft  TR256  BLI  uHT  IT  CAN  BE  DISPIAYED  USING  WRP256  ft 

ft  ft 

ft  / / / / / / / / / • /•  / / / /•  • i / • ■ / / / / / / / / / .'  ft 

ft  ft 

ft  SUBROUTINES  REQUIRED  ft 

ft  FROM  lOOP-WRITET  ft 

ft  FROM  GRAPH-GSX  ft 

ft  SEVERAL  SYSLIB  S'lUROUTINE  ft 

ft  t- 


ftftftftftftft  ft  ftft  ft  ft-ft-frtt  ft  ft- t-t-ot-fc-ft-i.ifr  ftt-i  i-ftftft-ftftt-ftfttft-ft 

LOG  I CAL  ft  1 A (256  96),  IZv256), DB v 12' 

LU=6 

CALL  WRITEF (LU,  ICH, DB 1 
CALL  START (LU) 

TYPE  11 

FORMAT! IX, 'ftft  MAX  SUM  BEGINNING  ROW  PLUS  SPREAD=240  *ft ' ) 

GO  TO  19 
TYPE  IB 

F0RMAT(1X,  'YOUR  INPUT  SPREAD  TOR  ROWS  EXdIDS  THE  MAX 
1 LIMIT  OF  239 ’ ) 

WRITE! 5, 20) 

FORMAT! IX.  'INPUT  THE  BEGINNING  ROW  AND  SPRl  AD-  ) 

READ<5,  50) IR.  IRS 

IF< IRS  GT  239)G0  TO  17 

TYPE  12 

FORMAT! IX,  'ft*  MAX  SUM  BEGINNING  COLUMN  PIUS  SPREAD=256  ** ' ) 
GO  TO  23 
TYPE  22 

FORMAT! IX. 'YOUR  INPUT  SPREAD  FOR  COLUMNS  EXCEEDS  THE 
IMAX  LIMIT  OF  255' ) 

WRITE! 5, 25) 

FORMAT! IX.  'INPUT  THE  BEGINNING  COLUMN  AND  SPREAD-  ') 

READ! 5, 50) 1C. ICS 

IF! ICS  GT  255)G0  TO  21 
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30 


1 


WRITE<  5, 30) 

FORMAKIX,  'ENTER  THE  X AND  Y Of  THE  LOWER  1 EFT  HAND 
I POINT  OF  THE  PLOT-  '.«) 

READ<  5.  50)LLX, LLY 
WR1TE( 5. 40 ) 

40  FORMAT (IX.  'INPUT  YOUR  VALUE  FOR  BLACK  AND 

1 CONTRAST  SPREAD') 

READ<  5,  50) IP,  IS 
50  F0RMAT(4I4) 

,'?ESET  THE  SCREEN 

CALL  INIT(LU; 

IFB=( IR-1 ) /2 
IFF=IRS/ (97)+l 
IWC=96*128 

IF  (IRS  LT  96)  I WC=^IKS*12B 

1BB=IFD 

ICHS=IC+ICS- 3 

S=1S 

DO  90  K--I,  IFF 
JS=IREADW( IWC. A, IBB. ICH) 

JJ=  96 

IF(K  EQ  IFF ) JJ-IWC / 12B 

DO  70  J= 1 , J J 
DO  60  1 = 1.  I CHS 
I I=ICHS-I+ 1 
KK=A( I I . J)  AND  255 
FK=KK-IB 
IF(FK  LT  0)FK=0 

IF(FK  OT  S)FK=S 

ZZ=16  -<  16  0«^FK/S) 

IZZ=ZZ 

IF(<Z7-IZZ)  GE  5)  lZZ=IZZ-*-l 
IZ< I )=IZZ 
60  CONTINUE 

CALL  GSXILLX,  J+LLY-1  + (K-1 )*96.  IZ,  ICS) 

70  CONTINUE 

IBB=4B+IDB 

IF  <K  EQ  ( lFF-1 ) ) IWC=< I RS-K*96 ) * 1 2B 
BO  CONTINUE 

CALL  CLOSE <LU) 

CALL  CLOSEC(ICH) 

CALL  IFREECdCH) 

READ( 5, 50) IS 
CO  TO  10 
END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

(■ 

c 

c 


c 

c 

r 

c 

c 

c 

c 


1 0 

1 1 

1 7 
) B 

19 

?0 


21 

22 


PROGRAM  WRP512 


* * 

* WRP512  WRITES  A GREY  LEVEL  PLOT  ON  LOGICAL  UNIT  * 

* NUMBER  LU  OF  THE  ROWS  AND  COLUMNS  OF  THE  INPUT 

* FILE  SPECIFIED  BY  THE  USER  THE  INPUT  AND  OUT-  * 

fe  PUT  FILE  ARE  ENTERED  IN  STANDARD  CSI,  THE  OUT-  * 

* PUT  BEING  CONNECTED  TO  LU  THE  PICTURE  IS  «■ 

* PRINTED  UPSIDE  DOWN  WITH  THE  LOWER  LEF  f CORNER 

* ENTERED  BY  THE  USER 

* < 

fr  THE  INPUI  PICTURE  FILE  MUST  CONTAIN  SEQUENTIAL  » 

ROWS  Willi  512  PIXELS  PER  ROW  THE  PROGRAM  COM-  i 
* PRESSES  C.ACH  ROW  INTO  256  PIXELS  BY  FAKING  THE  « 

k ROW  ELEMENTS  TWO  AT  A TIME  COMPUTING  THE  AVERAGE  & 

« INTENSITY  OF  EACH  PAIR  OF  ELEMENTS,  AND  THEN  t- 

« PLACING  THE  RESULTING  AVERAGE  INTENSIIIES  IN  A 
o 256  ELEMENT  ROW  OF  MATRIX  A’  THE  C (Jl  UMN  SPREAD  ft 

ft  REQUESTED  BY  THE  PROGRAM  REFERS  TO  THE  COMPRESSED  ft 

ft  MATRIX  A'  AND  THEREFORE  CANNOT  EXCEED  256  t 

ft  ELEMENTS  THE  RESULTING  PICTURE  IS  DISPLAYED  ft 

ft  WITH  A NEARLY  NATURAL  ASPECT  RATIO  OF  240/256  ft 

ft  WHEN  THE  INPUT  PICTURE  FILES  ARE  OBTAINED  FROM  ft 

ft  PIG5F1  CIR  DIG5r2  THE  DATA  FROM  THE  DIGITIZER  ft 

ft  MUST  BE  TRANSPOSED  USING  TRM2  BEFORE  IT  CAN  BE  ft 

ft  DISPLAYED  LISING  WRP512  ft 

ft  ft 

ft  / ' / / ■■  / / / ' / /•  / / ' ■■  / / ■ / / / / , ' / / / ■ / / / / / /■  / //////  / / / / / . ' / ft 

ft  ft 

ft  SUBROUTINES  REQUIRED  t 

ft  FROM  lOOP-WRITET  t 

ft  FROM  GRAPH-GSX 

ft  SEVERAL  SYSLIB  SUBROUTINE  ft 

ft  ft 


ttftftftftfrftftftftftftft  ftftftftftftftftftft  *«■<)■«•**  ftftftftftftftftftft  ft-IS-ft  ft-ftft-ftfr-ftftftft  ft  ft*  fc 

LOGlCALftl  A(512. 64), I Z ( 256 ) , DB( 12) 

LU=6 

CALL  STARTILU) 

CALL  WRITEFd.U,  ICH,  DB) 

TYPE  1 1 

FORMAT!  IX,  '*ft  MAX  SUM  BEGINNING  ROW  PLUS  SPREAD=240  ft*  ' ) 

GO  TO  19 
TYPE  18 

FORMAT! IX, 'YOUR  INPUT  SPREAD  FOR  ROWS  EXCEEDS  THE  MAX 
LIMIT  OF  239  ' ) 

WRITE! 5, 20) 

FORMAT! IX,  'INPUT  THE  BEGINNING  ROW  AND  SPREAD-  ') 

READ! 5, 50) IR, IRS 

IF! IRS  GT  239)G0  TO  1 7 

TYPE  12 

FORMAT!  IX.  'ft*  MAX  SUM  BEGINNING  COLUMN  PLUS  5PREAD=256  ♦*  ' ) 
GO  TO  23 
TYPE  22 

FORMAT! IX, 'YOUR  INPUT  SPREAD  FOR  COLUMNS  EXCEEDS  THE 
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1 MAX  LIMIT  OF  255  ' ) 

23  WRITE<5.25) 

25  FORMAT  (IX,  'INPUT  THE  BF.GINNINC;  COLUMN  AND  SPREAD-  '' 

READ( 5, 50) IC, ICS 

IF  ( ICS  GT  255)G0  TO  21 

WRITE (5, 30) 

30  FORMATilX,  'ENTER  THE  X AND  Y OF  THE  LOWER  LEFT  HAND 
1 POINT  OF  THE  PLOT-  '♦) 

READ(  5,  50)Ll.X,  LLY 
WRITE (5, 40) 

40  FORMAT^IX.  'INPUT  YOUR  VALUE  FOR  BLACK  AND 

1 CONTRAST  SPREAD') 

REALM  5,  50)  IP  IS 
50  F0RMAT(4I4) 

RESET  THE  SCREEN 

CALL  INIT(LU) 

IBD=IR-l 
IFF  = IRS/65«-l 
IWC*64*256 

IF  (IRS  LT  64 ) Iwr^IRS*256 
S-IS 

ICHS=IC^ICS-  I 
JJ=64 

DO  100  K=1 , IFF 
JS=IREADW(  IWC , A,  IDB,  I CM) 

IF(K  EO  IFF)  iJ=IWC/256 

DO  70  11  = 1,  I CMS 
I I I = I 1*2-1 
DO  60  JJJ=1 . JJ 

A(  I 1 , JJJ)  = ( (A(  I I I,  UJJ)  AND  255)-( A( I I I + l,  vUJ)  AND  255)'/2 
60  CONTINUE 

70  CONTINUE 

DO  RO  J=I , JJ 

DO  80  1=1. ICS 

I I=ICS-I+1 

KK=A( I I, J)  AND  255 

FK=KK-IB 

IF(FK  LT  0)FK=0 

1F(FK  GT  S)FK=S 

ZZ=16  -( 16  0*FK/S) 

IZZ=ZZ 

IF((ZZ-IZZ)  GE  5)  IZZ=IZZ-*-l 
IZ< I )=IZZ 
00  CONTINUE 

CALL  GSXILLX. J+LLY-1+(K-1 )*64. IZ, ICS) 

90  CONTINUE 

IBB=64-«-IBB 

IF(K  EQ  < IFF-1 ) ) IWC=( IRS-K*64)*256 
100  CONTINUE 

CALL  CLDSEC(ICH) 

CALL  IFREEC(ICH) 
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CALL  CLOSE <LU) 
READ<  5.  50)  IS 
GO  TO  10 
END 
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PROGRAM  DHISl 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


10 


20 

30 

40 


60 


* «r 

* DHIST  COMPUTES  THE  ONE  (1)  UIMENSIONAL  HISTOGRAM 

* OF  A SPECIFIED  WINDOW  IN  THt  INPUT  FILE  THE  * 

* HISTOGRAM  IS  PLOTTED  OUT  WIIH  USER  SPECIFIED  fr 

* BIN  SIZE  THE  GREY  LEVEL  PICTURE  DISP1AV5  ANY  t 

* PORTION  OF  A 256  OR  512  COH^iMN  PICTURE  FILE  *• 

* THE  DIMENSIONS  OF  THE  DISPLAYED  WINDOW  ARE  SEL-  <- 

* ECTED  BY  fHE  USER  UP  TO  A MAXIMUM  WINDOW  SIZE  f 

* OF  100  X lOO  PIXELS 

* t 

* IN  ADDITION.  DHIST  WILL  DISPLAY  COMPLITE  PICTURE  * 

* FILES  AS  LARGE  AS  64  X 64  PIXELS  IF  THE  TRIMMED 

* PICTURE  r ILE  DIMENSIONS  ART  2fr«N  X 2i i M WHERE  N u 

* AND  M CAN  TAKF  ON  ANY  VALUEIS  FROM  1 TO  6 IN  fc 

«■  THIS  CASE  THE  EXACT  PICTURL  FILE  DIMENSIONS 

» MUST  BE  ENTERED  AS  THE  DIMENSIONS  OF  THE  WINDOW  t- 

* TO  BE  DISPLAYED  t- 

« I 

*//,/////,•/  //■/../,  / / / . / / . I / i //  f J / / / . •■  / / / '■  /'  f,- 

* # 

* SUBROUT  IME.5  REGUIRl.'D  e- 

* FROM  lOOP-WRITET  READR  < 

FROM  GRAPH-ALL  OF  THEM  e 

* SUBROUTINE  HIST  w 

* SEVER Al.  SYSLIB  SLiBROU TINES  * 

* t 


COMMON, /L 

LOG  I CAL «1  DB(1?  ) 

INTEGER*2  A < 256 ) , I X ( 20 ) , I V ( 20 ) 

L=^l 

LU=6 

CALL  WRITEFILU, ICH, DBI 
CALL  START (LU> 

WRITE <5, 30) 

FORMAT! IX,  'INPUT  THE  SIZE  OF  THE  HISTOGRAM  BINS') 
READ! 5, 40)NB 
FORMAT! 14) 

CALL  HISTILU, ICH, A, DB ) 

IB=256/NB 
DO  60  1 = 1,  IB 
IA=0 

IN=< I-l )*NB 
DO  50  J=l, NB 
IA=IA-FA(  IN-fJ) 

CONTINUE 

A( I )=IA 
CONTINUE 

CALL  PHIST!A, IB, MAX, NB) 

DO  70  1=1, 17 
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IX( I )=256-< 17-1 )*16 
IY( I )=MAX*FLDAT< I-l )/16.  0 
70  CONTINUE 

CALL  FRAME ( ) 

CALL  GRID( 16) 

CALL  AXIS( IX,  lY,  17,  17) 

CALL  TICX(20, 16, 4) 

C 

READ(5, 100)L 
CALL  INIT<LU) 

WRITE (5. 80) 

WRITE < 5, 90) (< I-l )*NB. A(I),  1 = 1,  13) 

80  FORMATdX,  'THE  COUNTS  FOR  THE  GREY  LEVEL  HISTOGRAM 

1 WERE  AS  FOLLOWS  '/IX,  5X,  'GREY  LEVtL'.AX,  'COUNT') 

90  F0RMAT(6X.  13, 8X,  14) 

1 OO  FORMAT (II) 

WRITE(5, 110) 

110  FORMATdX,  'WOULD  YOU  LIKE  A NEW  INPUT  F ILE?  < YES=  1 , N0=0 ) ' ) 
READ (5,  100)L 

f IF(  (L)  EQ  non  TO  120 

i GO  TO  20 

I 120  CALL  CLOSE(LU) 

[ GO  TO  10 

[ END 

i 
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SUBROUTINE  HI  ST ( LU.  ICH. A,  DB ) 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

( 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


feft*-*******  O -lui-fr 


* * 

* HIST  IS  A PROGRAM  DESIGNED  TO  BE  CALUri)  BY  DHIST  * 

* ALMOST  EXCLUSIVELY  HIST  READS  IN  A WINDOW  * 

* OF  DATA  FROM  A ROW  STRUCTURHP  PICTURE  ! 1 LE  t 

* ACCORDING  TO  USER  ENTERED  ROW  AND  COLUMN  LIMITS 

* OPTIONS  ARE  INCLUDED  TO  ALLOW  THE  GREY  LEVEL  * 

* PICTURE  OF  THE  WINDOW  BE  DRAWN  OUT  IN  fHE  UPPER  * 

* RIGHT  HAND  CORNER  OF  THE  SCRI  EN  AND  Al  SO  TO  * 

* SAVE  DATA  PREVIOUSLY  READ  * 

* « 

fr/ ////////  .'.  ////////////,  //t 

* * 

* PARAMETERS  fc 

* LU=THC  LOGICAL  UNIT  NUMBL R TO  WR 1 1 1 THE  * 

* GRAPHICS  OUT  TO  t- 

* ICH= THE  CHANNEt  NUMBER  TO  READ  HU  DATA  FROM  < 

* A=THr  LOGICAL*!  ARRAY  TO  READ  DATA  INTO  * 

* DB^TH!  lOOICAl-*'.  ID  BNU  VECTOR  WIIK-H  CONTAITiS  * 

* THE  ASt  I i FC'R  THE  R!  /M>  FILE  * 

* * 

* / ! ! / / / / / / / ••  /'  ! ■ / / ' ' / / / / / /'  . • /■  / ! . ■ / / ////////  / /'  / fr 

» f 

« LIMITS  * 

* THE  WINDOW  OF  DATA  READ  CAN  BE  AT  MOST  * 

* TOO  X lOD  t 

« 

* / ■■  / / / t / I / i i ■ ■ / / , ■ / , ■ / / / .//,•■//.////  / / / / / / / ./  / / . ' '■  / * 

* SUBROUTINES  REQUIRED  * 

* FROM  lOOP  - READR  * 

* FROM  GRAPH  - GRA, INIT  * 

* SEVERAL  3YSLIB  SUBROUTINES  * 

* * 
* e-ft  *■»«•»«?«•***»**  ******  <r  **•#•***  in:  *«*■**«  ****«  I.*********  **** 


COMMON/ /L 
INTEGER*2  A<256) 

LOGICAL*!  AS ( 100, 1 00 ) • DB < 12 ) , D < 40 ) 

DO  10  1 = 1,256 
A( I )=0 

10  CONTINUE 

IF( <L)  EQ  1 )G0  TO  125 
WRITE  (5,20) 

20  FORMAT!  IX,  'WOULD  YOU  LIKE  TO  SAVE  PREVIOUS  DATA"' < YES=  I , N0=0 ) ' ) 
READ  (5, 40) ITT 

IF< ITT  EQ  1 )G0  TO  60 
125  TYPE  21 

21  FORMAT! IX. 'SPECIFY  PORTION  OF  INPUT  PICTURE  TO  BE  DISPLAYED') 
TYPE  22 

22  FORMAT! 15X, '***  MAX  SPREAD  100  X 100  ♦**') 

25  WRITE! 5, 30) 

30  FORMAT! IX, 'INPUT  THE  BEGINNING  ROW  AND  SPREAD.  ') 
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READ  < 5, 40) 1 1 , IR 
WRITE  (5,35) 

35  FORMAT  (IX.  'INPUT  THE  BEGINNING  COLUMN  AND  'JPREAD  ') 

READ  (5. 40)KK, IC 
40  FORMAT (414) 

JJ=IR+1 I-l 
LL=IC+KK-1 
WRITE(5. 50) 

50  F0RMAT(1X,  ENTER  NUMBER  OF  COLUMNS  IN  THE  INPUT  PICTURE  FILE  ) 
READ( 5, 40)NC 

CALL  READR ( I 1 . JU. KK, LL,  100, AS,  ICH. NC ) 

60  WRITE(5,70) 

/O  F0RMAT(1X,  WOULD  YOU  CARE  TO  TITLE  YOUR  H 1 STOGRAM'^  ' ) 

READ(5,  80)  (D(  1 ).  1 = 1, 40) 

BO  FORMAT <40A1) 

WRITE(5, 90) 

90  FaRMAT(lX,  'WOULD  YOU  LIKE  TO  SEE  THE  GRAY  I FUELS'' ( YES=1  , N0=0 ) ) 

READ (5  40) ITT 
IF ( ITT  EQ  1 )G0  TO  160 
CALL  INIT(LU) 

100  WRITE  (LU, 140) (DB( I ), 1=4, 12) 

WR I TE ( LU,  1 50 ) I I , JJ, KK . LL 
WRITE (5,  110)  iB( I ),  1 = 1 40) 

110  FORMAT( //21X. 40A1 ) 

DO  130  1 = 1,  IR 
DO  120  J=1 , IC 
K=( AS( I , J)  AND  255)+! 

A ( K ) =A  ( K ) -t- 1 
120  CONTINUE 
130  CONTINUE 

140  F0RMAT(1X,  I HE  INPUT  FILE  WAS  ',6A1,'  '3A1) 

150  FORMAT!  IX.  'ROWS  '.13,'  TO  ' , 1 3 / 1 X , ' COLS  ',13,'  TO  ',13) 

RETURN 

160  CALL  GRA( IR,  IC,  100, AS) 

READ! 5, 40) I TT 
GO  TO  100 
END 
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PROGRAM  TR256 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


1 

1 0 


#************»*********#*«**************«.«-*********** 


* * 

* TRANSPOSES  A 240  DY  256  ARRAY  OF  BYTES  STORED  « 

* IN  SEQUENTIAL  COLUMNS  TO  A 256  DY  240  ARRAY 

* STORED  IN  ROWS  » 

« ♦ 

*//■  .•■//.■■///  / ,■  ,■  / //////////////  / / ' . / • / / /////////////* 

* * 

e SUBROUTINES  REQUIRED  * 

* FROM  I00P-TRANS2, RENTER. WENTRN,  AREAD  * 

» SEVERAL  SYSLIB  SUBROUTINES  » 

* * 


LOGICAL* 1 A <30. 30) 

CALL  TRANS2( ) 

ICH=IGETC ( ) 

CALL  RENTER! ICU) 

CALL  AREAD<  1 , 30  1 , 30.  30  A.  ICH) 
DO  10  1=1 , 30 

WR  I TE  < 5 • 1 ) ( A ( I . 3 ) , J=  1 , 30  ) 
FORMAT!  IX,  30!  ILL  IX  ) ) 

CONTINUE 

CALL  Cl.OSEC!ICH) 

CALI  IFREECIICU) 

GO  TO  2 
END 


1 
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SUBROUTINE  TRANS2< ) 


C 

C 

C 

C 

C 

C 

C 

C. 

C 

c 

c 

c 

c 

c 

c 

c 


c 


V. 


* * 

* TRANSPOSES  A 240  BY  256  ARRAY  OF  BYTES  STORED  * 

* IN  SEQUENTIAL  COLUMNS  TO  A 256  BY  240  ARRAY 

* STORED  IN  ROWS.  THIS  SUBROUTINE  IS  CALLED  * 

* BY  TR256  ♦ 

* -fr 
*/////////  / / .■•////////  / /////  / / ////.•■//.'/////////////////* 

* *■ 

* SUBROUTINES  REQUIRED  « 

* FROM  lOOP-RENTER, WENTRN  * 

* SEVERAL  SYSLIB  SUBROUTINES  * 

•tt  * 


INTEGER*2  BUFF ^ 256 ) 

LOGICAL*!  A(SO, 256). AS(512) 

EQUIVALENCE  » BUFF ( 1 ) , AS ( 1 ) > 

ICHR=10ETC  < ) 

WRITE! 5. 1 ) 

1 FORMAT!  IX,  'ENTER  THE  FIl.E  TO  BE  TRANSPOSED  ') 

CALL  RENTER! I CHR) 

WRITE! 5, 2) 

2 F0RMAT(1X,  'ENHR  OUTPUT  FILE  FOR  THE  NEW  TRANSPOSED  PICTURE 
ICHW=IGETC! ) 

CALL  WENTRN! ICHW. 120) 

TRANSPOSE  THE  ARRA ''  TN  BLOCKS  40  ROWS  BY  256  CUl  S 


C 


DO  30  1=1,3 


SET  BEGINNING  ROW  COUNTER 


IR=! I-l )*B0+1 
IRR=IR+79 

CALL  AREAD! IR, IRR, 1 , 256  SO, A, ICHR ) 
FILL  UP  THE  WRITE  BUFFER  WITH  2 ROWS 


11  = 1 

DO  20  IB=1. 40 
IBB=IB-1 
DO  10  J=1 , 256 
AS! J)=A! 1 1,  J) 

AS! J+256)=A! II  + l,  J) 

10  CONTINUE 

WRITE  OUT  THE  BUFFER  OF  TWO  ROWS  TO  THE  TRANS  FILE 


11=11+2 

JB=IBB+! I-l )*40 
JS=IWRITW(256, BUFF, JB, ICHW) 
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20  CONTINUE 
30  CONTINUE 

CALL  ClOSECdCHR) 
CALL  CL.OSEC  ( ICHW) 
CALL  IFREEC(ICHR) 
CALL  IFREEC(ICHW) 
RETURN 
END 


r>  n n o o n n 


PROGRAM  TR512 


*****«"IH»-*«-**te-**r-(HHt***«-*********#*'*  *■<•****<.<•*;- ****■!(•*  *****1!- 


* t 

* transposes  a 240  BY  512  ARRAY  OF  BYTES  STORED 

* IN  SEQUENTIAL  COLUMNS  TO  A 512  BY  240  ARRAY 

* STORED  IN  ROWS  * 

* * 

c «/■■  //'/////.■//.  .'/.■///////.■//  / 

C * e 

C * SUBROUTINES  REQUIRED 

t * FROM  I00P-TRANS5. RENTER  WENTRN,  AREAD  * 

C * SEVERAL  SYSLIB  SUBROUTINES 

C * * 


C 

LOGICAL*!  A CIO  00  > 

2 CALt.  TRAN35(  . 

ICH=IGETC  < > 

CALL  RENTER^^'.U. 

CALL  AREADIl  O')  1.00,30  A,  ICH) 
DO  10  1 = 1 . 30 

WR  n E < 5,  1 ) ( A ( 1 J I . U=  I . 30  > 

I FORMAT'  IX  30(  13,  IK  ) » 

10  CONTINUE 

CALL  CLOSEC  (111. 

CALL  irRFEC(KM) 

GO  ro  2 
END 
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1 


SUBROUTINE  rRANS5( ) 

C 

c *•»■«■*  ♦■«•*■♦•«■«■*«•■«•***•****««■«•******■«■«*»•«* 


C * t 

C * TRANSPOSES  A 240  BY  512  ARRAY  OF  BYTES  STORED  * 

C IN  SEQl'ENI  IAL  COM  IMNS  TO  A 51?  BY  240  ARRAY  t 

C STORED  IN  ROWS  THIS  SUBROUTINE  IS  CAILED  * 

C « BY  TR512  t 

C * * 

c / . / / / / / / / ■■  , / / / / i / / ;■  ■ i 1 1 ! n ; / / / ■ / / /,■/////////////'//«■ 

C * t 

SUBROUTINES  REGUIRED 

FROM  lODP  RENTER . WENTRN  t 

«■  SL  YERAL  SYSLiD  SUBROUT  I IvlES 

* t 


INTEGER*2  I(Ur-F(256> 

LOGICAL ttl  A(60  51?) , AS< 5121 
FOUI VALENCE  ( BUE F ( 1 ) . AS ( 1 ) ) 

ICHR-IGEIC  X I 
WR ITE  < 5,  1 ) 

1 F0RMAT(1X,  r-NTER  THE  fILE  TO  BE  I RANSPOSID  ' ) 

CALL  RENTER  < ICHR ) 

WRITE ( 5. 2) 

? FORMAT!  IX.  ENTF.R  OUTPUT  FILE  FOR  THE  NEW  IRANSPOSED 

1 PICTURE) 

ICHW  IGETC ( > 

CALL  WENTRMflCHW  240) 

TPANS.COSL  IHL  ARRAY  IN  BLOCKS  6C)  ROWS  BY  512  COLUMNS 
DO  30  1 = 1,  4 

SET  BEGINNING  ROW  COUNTER 

IR=< I-l )*60+ 1 
IRR= IR+59 

CALL  AREAD( IR. IRR, 1, 512. 60. A ICHR ) 

FILL  UP  THE  WRITE  DUFFER  WITH  1 ROW 

DO  20  ID=1, 60 

IBB=IB-1 

DO  10  J=l, 51? 

AS<U)=A( IB,  .n 
10  CONTINUE 

WRITE  OUT  THE  BUFFER  OF  1 ROW  TO  THE  TRANS  FILE 

JB-IBB+  < 1-1  ) *60 
JS*IWRITW(256, BUFF, JB, ICHW) 

20  CONTINUE 

30  CONTINUE 

CALL  CLOSEC<ICHR) 
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< ICHW) 
< ICHR  ) 
( ICHW) 


CALL  CLOSEC 
CALL  IFREEC 
CALL  IFREEC 
RETURN 
END 


c 

c 

* 

c 

TRIM 

c 

* 

512 

c 

FILE 

c 

FILE 

c 

* 

c 

* / / / 

/ / / / / 

c 

« 

c 

SUBR 

c 

■ft 

c 

* 

c 

* 

c 

*>•«■*  -ft 

c 

c 

c 


IT  SELECTS  A SPECIFIED  PORTION  OF  THE  INPUT  PICTURE 
iND  OUTPUTS  THE  TRIMMED  PICTURE  TO  AN  OUTPUT  PICTURE 

* / / / , ■ / / / / / / / / / / / / / / / /•  / / / ,■ ,'//!/  / /////////////////  / / //■■■///  / i ! / / / / / , 

JTINES  REQUIRED 
ASK 

SEVERAL  SYSLIP  SUBROUTINES 


PROGRAM  TRIM 
LOGICAL*!  A(600) 

INTEGER  COLUM,  LENGUT,  ROW  UIDTH,  PCUNI  1 . POINT  ? 
INTEGER  PICX. /\300I 
CALL  ASK- 


TYPE  10 
1 0 FORMA  I ( ' 

ACCEPT  60.F’irx 
TYPE  20 

20  FORMAT(' 

ACCEPT  60,  roi  UM 
TYPE  30 
30  FORMAT! 

ACCEPT  60, ROW 
TYPE  40 
40  FORMA  f ( ' 

ACCEPT  60, LENGHT 
TYPE  50 
50  FORMAT ( ' 

ACCEPT  60, WIDTH 
60  FORMAT  (I5T 


ICNi^TH  OF  ROWS  FROM  INPUT  PICTURE  FILE- 


BI  GINNING  COLUMN  OF  INPUT  PICIUF<E  FILE- 


PI  GINNING  ROW  OF  INPUr  PICTURI  I ILE- 


NUMBER  OF  COLUMNS  FOR  TRIM  PICIURE- 


NUMBER  OF  ROWS  FOR  TRIM  PICTURE 


C0LUM=(C0LUM^1 ) fc  5 
WIDTH=W1DTH*  5 
WIDTH=2*W1DTH 
ITEMP=P1CX*  5 
LENGHT=LENGHT*  5 

4 IS  READ  FILE,  3 IS  WRITE  FILE 

DEFINE  FILE  4 ( 0,  I TEMP,  U, POINT  1 ) 

DEFINE  FILE  3 < WI DTH, LENGHT , U,  PO 1 NT 2 ) 

P0INT2=1 

P0INT1=R0W 

DO  70  1 = 1,  WIDTH 

FIND  <4'P0INT1) 

READ (4 'POINT  1 ) ( X (L) , L=l,  I TEMP) 

FIND(4 'POINTl ) 


t) 


♦ ) 


t) 


«) 


% > 
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c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

(j 


10 

?o 

30 


40 


50 


C 

C 

C 

C 


60 

70 


PROGRAM  TRIM2 

*****«■****■»«*«**«■«■#**«■*****«•*♦»**•»•»■*»***«  »**««*»««»«'»«'  #■ 


* # 

* TRIM2  TAKES  OUT  120  ROWS  AND  256  COLUMNS  OF  A * 

* SPECIFIED  240  BY  512  PICTURE  FILE  AND  WRITES  * 

OUT  THE  DATA  TO  A SPECIFIED  WRITE  Fill  THE  * 

* BEGINNING  ROW  AND  COLUMN  FOR  THE  RECTANGLE  * 

* WINDOW  ARE  INPUT  BY  THE  USER 

* it 

* / / / / / /•  / ! / / / / / / / / / //////////  / / / / ■■  / ■ .■///'/////////////* 

* * 

* SUBROUTINES  REQUIRED: 

* FROM  lOOP -RENTER. WENTRN, READR  * 

* SEVERAL  SYSLIB  SUBROUTINES  * 

* it 


«■«■*«**  ft  **********«•*.■«■«•«•*«***(•  ■!<■■«  ****##****■»■ 

LOGICAL*!  A( 120, 256), DB ( 1 2 ) . AS < 5 1 2 ' 

INTEGER*2  BUFF <256) 

EQUIVALENCE  V AS ( I ) . BUFF  < 1 ) ) 

ICH=IGrTC ( ) 

WRITE! 5,  20  > 

FORMAT!  IX,  ’ INPUT  I HE  READ  FILE') 

CALL  RENTER ! ICH. UB ) 

WRITE<5, 30) 

FORMAT \ IX,  INPUT  THE  WRITE  FILE  > 

ICW=IGETC  < ) 

CALL  WFNTRN! ICW, 60, DB ) 

WRITE! 5, 40) 

FORMAT!  IX,  INF'UT  THE  UPPER  LEFT  HAND  ROW  AND 
COLUMN  OF  THE  WINDOW ',*) 

READ! 5,  50) IR.  1C 
FORMAT ! 214 ) 

READ  IN  THE  WINDOWS,  60  ROWS  AT  A TIME  AND  WRITES 
OUT  1 BLOCK  AT  A TIME 

CALL  READR! IR. IR+1 19, IC. IC+255, 120. A, ICH, 512) 

DO  70  K=l, 60 
KK=!K-1  )*2«-l 
DO  60  J=  1,256 
AS! J) =A<KK, J) 

AS! J+256)=A!KK*1. J) 

CONTINUE 

JS=IWRITW!256, BUFF, K-1 , ICW) 

CONTINUE 

CALL  CLOSEC!ICH) 

CALL  CLOSEC!ICW) 

CALL  IFREEC!ICH) 

CALL  IFREEC!ICW) 

GO  TO  10 
END 
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n FORTfWN  FILTER  PROGRAMS 
AND  MAJOR  SUBROUTINES 
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f I??SCr:Dr  :t5  PaSK  3LaNK-.VCT  iriLMSD 


PROGRAM  FILTER* 

INTEGER*?  XA(300) 

INTEGER  WINDX, WINDY, PICX,  PICY,  IX,  lY,  I TEMP 

INTEGER  POINTl, POINT?,  X 

LOGICAL*!  A <600), MATRIX <20, 20), B<600) 

COMMON  WINDX, WINDY, PICX, PICY, IX, I Y, POINT! , P0INT2 
COMMON  A , MATRIX 

EQUIVALENCE  <XA<1),B<1)) 

CALL  ASK 
CALL  SIZE 
LX=PICX*  5 

LY=PICY*  5 

DEFINE  FILE  4<0,  LX,  U,  POINT!  ) 

DEFINE  FILE  3(LY, PICX,  U,  POINT?) 

TYPE  10 

10  FORMAT < ' WHAT  ORDER  FILTER  ,t) 

ACCEPT  !!,K 

11  FORMAT < 31) 

P0INT2=! 

DO  40  I=! , PICY 
DO  20  J=!, PICX 
I X=J 
IY=I 

CALL  WINDOW 
CALL  FIND<K, X ) 

20  B< J)=X  AND  255 

1 = 1 + 1 
IP=I*  5 

DO  30  J=!, PICX 
IK=PICX+J 
I X=J 
IY=I 

CALL  WINDOW 
CALL  FIND<K, X ) 


30  B < IK )=X  AND  255 

WR ITE<  3 'P0INT2, ERR  = 40) <XA<J),J=1,PICX) 
40  CONTINUE 

STOP 
END 


Main  Program  for  MEDIAN  and  AVG  Filters. 
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SUBROUTINE  FIND(K. X) 

INTEGER  B(400) . 1,  J,  L.  R 
LOGICAL*!  A( 600). MATRIX <20. 20) 

INTEGER  W,  NUM.  PICX,  PICY,  WINDX.  WINDY.  IX.  lY.  I'OINTl 
INTEGER  P0INT2,  X 

COMMON  WINDX. WINDY.  PICX.  PICY,  IX.  I Y. POINT! 
COMMON  P0INT2. A. MATRIX 
DO  !2  1=1, WINDY 
DO  2!  J=!. WINDX 

B(  J-t-(  I-l  )*WINDX)=255  AND  MATRIX  ( I,  J' 

21  CONTINUE 

12  CONTINUE 

NUM=WINDX*WINDY 

r TYPE  234, ( D ( I ) , 1=1 , NUM ; 

LSUM=0 

DO  31)5  1 = 1,  NUM 
355  LSUM=L5UM+B ( I > 

X=LSUM,'NUM 

RETURN 

END 


Called  by  AVG  Filter. 
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SUBROUTINE  FIND<K>,X)* 

INTEGER  B(400).  I,  J,  L,  R 
LOGICAL*!  A(600),  MATRIX<20,  20) 

INTEGER  W.  NUM,  PICX,  PICY,  WINDX,  WINDY  T X,  I Y,  I'OINTl 
INTEGER  P0INT2.  X 

COMMON  WINDX.  WINDY/ PICX.  PICY  1 X,  I Y,  )*0INT1 
COMMON  P0INT2. A, MATRIX 
DO  12  I=1.WINDX 
DO  21  J=l, WINDY 

B(  J-*  ( 1-1  )*W  INDY)  =255  AND  MATR  I X ( 1/  U- 
21  CONTINUE 

12  CONTINUE 

NUM=WINDX*WINDY 

C TYPE  234, (B( I ), 1=1/ NUM) 

C234  FORMAT!  IX,  «?<  IX  15)) 

L = 1 
R=NUM 

2 IF(L  GT  R)GDTO  10 

X=B(K) 

I'L 

J=R 

1 1 IF(B(I  ) GE  X)GOTO  19 

1 = 1 + 1 
GOTO  1 1 

IF(XGEB(J)'  GOTO  20 

J=J-1 

GOTO  19 

20  IF(I  GT  J)  GOTO  30 

W=B ( I ) 

B( I )=D( J) 

B( J)=W 
1 = 1 + 1 
J=J-1 

JO  1F( I LE  J)  GOTO  1 1 

IF<J  LT  K)  L=I 
IF<K  LT  I ) R=J 
GOTO  2 

CIO  TYPE  234C. X 

10  RETURN 

END 


1 


Called  by  MEDIAN  Filter. 
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SUBROUTINE  SIZE  I 

INTEGER  WINDX, WINDY,  PICX.  PICY,  IX,  lY  I 

COMMON  WINDX, WINDY,  PICX,  PICY,  IX,  lY  I 

10  TYPE  100  j] 

ACCEPT  200,  PICX  fj 

L=MOD(PICX,  2) 

IF<L  NE  O)  GOTO  10 
15  TYPE  105 

ACCEPT  200, PICY 
L=MOD<P ICY, 2) 

IF  <L  NE  O'iGCTO  15 
TYPE  115 

ACCEPT  200,  WINDX 
ITEMP=W1NDX«  5 
WINDX=2#I  TE.MP-.  1 
TYPE  110 

ACCEPT  200,  WINDY 
I TEMP  = WINDY<'  5 
WINDY=2»ITEMI'-^1 


100 

FORMAT! 

ttOF  COLUMNS 

105 

FORMAT 

ttOF  ROWS 

1 10 

FORMAT ( ' 

ROWS  OF  WINDOW 

1 1 5 

FORMAT' ' 

COLS  OF  WINDOW 

200 

FORMAT! 15) 

RETURN 

END 
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HUMAN  VISUAL  FILTER  AUGUST  8,  1977  MITCHELL 

FILTERS  A PICTURE  FILE  ASSUMING  256  POINTS  PER  ROW  USING  A 
BANDPASS  FILTER  THAT  SIMULATES  THE  HUMAN  VISUAL  SYSTEM 
DIMENSION  FILTER(45) 

INTEGER*2  JM  ( 240  ),  CENTER , ABOVE  BELOW,  LEF-T  , R IGI  U SIZE 

LOGICAL*!  PI  X (256,  42), OUT (512), DUM(512) 

DATA  FILTLR/0  ,0  ,0  ,-  25,-  75,-  25,  O , 0 ,0  ,0  , - 25,-  50, 

1 25.  1 25,  25,  - 5,  - 25,  0 . - 25,  - 5,  25,  1 , 1.  5,  1 , 25,  - 5.  - 25,  O , 

1-  25,-  5,  25,1  25,  25,-  5,-  25,0  ,0  ,0  O ,-  25,-  75,  - 25,0  ,0  , 

10  / 

I WINDO=4 

( JWINDO  MUST  BE  EVEN  BECAUSE  THERE  ARE  2 LINES  PER  DISK  BLOCK 

JWIND0=2 

C JMOD  MUST  BE  EVEN  I OR  2 LINES  PER  DISK  BLOCK  CASE 

JM0D=JWIND0*2+2 
IF(JMOD  GT  42)G0  10  800 
DO  10  J=1 , 512 
DUM<  J)=0 
10  0UT<J)=0 

C SET  UP  MOD  TABLE  POR  V POSITION 

DO  20  J=1 , 240 

20  JM  ( J ) =U-  ( J- 1 I / JM(JD*UMOD 

CALL  RENTER (ICR) 

CALL  WENTRN(  ICW,  -1  ) 

IER=IREADW(256*JWIND0, PIX, O. ICR ) 

IFIIER  LT  0)5T0P  'BAD  READ' 

DO  30  J=l,JWINDD/2 
30  1ER=1WR1TW(256, DUM. J- 1 , ICW) 

NEXBLK=JWINDO-I 

DO  600  JODD= JWINDD^l,  240-JWIND0,  2 
NEXBLK  = NEXBLKH 
NEXLIN^JODD+JWINDU 
NEX=JM(NEXL1N) 

C READ  IN  ONE  LINE  INTO  CIRCULAR  BUFFER 

IER=IRFADW(256. PIX< 1, NEX) , NEXBLK, ICR ) 

IF< lER  LT  0)G0  TO  650 
IADD=0 

DO  550  I HALF =1,2 
IFdHALF  EQ  2)IADD=256 
J=J0DD+IHALF-1 

DO  500  I = IWINDO-H.  256-IWINDO 

INDEX=0 

SUM=0 

DO  50  J40=l , 5 
K=JM( J-3+J40) 

DO  40  140=1 , 9 
INDEX=INDEX>1 

IPOINT=PIX( I-5+I40, K)  AND  255 
40  SUM=SUM+IPOINT*FILTER( INDEX ) 

50  CONTINUE 

I0UT=SUM-*-64 

IFdOUT  GT  255)I0UT=255 
IFdOUT  LT  0)I0UT=0 
500  OUT  d ♦ I ADD ) = I OUT 

550  CONTINUE 

C 
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WRITE  OUT  LINE  Ql  DATA 
IER=IWRITW<2^/6,  OUT,  J/2  1,  ICW) 


C WRITE  EMP TV  LINES  AT  END 

650  J=J/2-l 

DO  700  1=1 , JWINDO/P 
J=J+1 

.'OO  IER=IWR  ITW(256,  DUM,  J,  ICW) 

CALL  CLOSEC(ICR) 

CALL  CL0SEC(ICW1 
STOP  'ALL  DONE' 

BOO  WRITE(5-810> 

BIO  FORMATS  IX.  'VERTICAL  WINDOW  SI7E  TOO 

STOP 
END 


ARG[ 


171 


n n 


C MAX256  AUGUST  8,  1977  hllCHELL 

C FINDS  LOCAL  FXTREMA  OVER  A 256X240<0R  LESS)  PICTURE  AND  OUTPUTS  THF 

C LOW  ORDER  2 13  ITS  OF  EACH  BYTE  ARE  COOED  AS  FOLLOWS 

C 00  - HORZ  MIN  01  - HORZ  MAX 

C lO  - VERT  MIN  11  - VERT  MAX 

C EXTREMA  SIZE  INDICATED  BY  HIGH  6 BITS 

MAXMIN  SEARCHES  OVER  A WINDOW  OF  IWINDO  X JWINDO  AROUND 
EACH  POINT  INDICATING  WHETHER  IT  IS  A LOCAl  EXTREME  AND 
C ITS  SIZE  THE  LOW  ORDER  BIT  IS  A ONE  IF  EXTREME  IS  A MAXIMUM 

C AND  THE  NEXT  BIT  IS  A ONE  IF  IT  IS  A VERTICAL  EXTREME 

INTEGER*2  JM<240). CENTER. ABOVE- BELOW. LEFT. RIGHT, SIZE 

LOGICAL>H  PIX(256,  42),  0UT(512)  DUM ( 5 1 2 ) 

1WIND0=24 

r JWINDO  MUST  BE  EVEN  FOR  2 LINES  FOR  DISK  BLOCK  CASE 

JWIND0=12 

C JMOD  MUST  BE  EVEN  FOR  2 LINES  PER  DISK  BL  LK  K CASE 

JMOD= JWINDO* 2+2 
IFCJMOD  GT  42) GO  TO  800 
DO  10  J= 1 . S 1 2 
DUM( J>  0 
10  nUT(J)=0 

r SET  UP  MOD  lAHLL  TOR  y POSITION 

DO  20  1=1 . 240 

20  JM<  J)  - J - V J- 1 ) / JHOUtJMOD 

CALL  RENTER (I  CP) 

CAL  L WENTRN<  ICW.  1 ) 

IER=IREADW(2S6*.IWIND0,  FIX,  0-  ICR  ) 

IFLIER  LT  0)STDP  DAD  HEAD' 

DO  30  J=l. JWINDO/ 2 
30  IER=IWRITW(256. DUM, J-1 , ICW) 

NEXBL  K-=JWIND0-1 

DO  600  J0DD=JWINDD<-1, 240~JWIND0,  2 
NEXBLK=NEXBLK+1 
NEXL I N=JODD+ JWINDO 
NEX-jr-KNEXL  IN) 

C READ  IN  ONE  LINE  INTO  CIRCULAR  BUFFER 

IER=IREADW( 256, P I X < 1 , NEX ) , NEXDLK,  ICR ' 

IF( lER  LT  0)GO  TO  650 
I ADD=0 

DO  550  IHAl F=l, 2 
IFIIHALF  EQ  2)IADD=256 
J=J0DD-HHALF-1 

DO  500  I=IWIND0*1 , 256-IWINDO 
K1=JM( J) 

CENTER=PIX( I,  K1 ) AND  255 
K=JM( J-1 ) 

ABOVE=PIX( I, K)  AND  255 
K=JM< J*1 ) 

BELOW=PIX( I, K)  AND  255 
SIZE=0 

IF( (CENTER  GT  ABOVE)  AND  (CENTER  GE  BELOW) )G0  TO  100 
1F( (CENTER  LT  ABOVE)  AND  (CENTER  LE  BELOW) )00  TO  200 
50  LEFT=PIX( I-l, K1 ) AND  255 

RIGHT=PIX( I+l, K1 ) AND  255 

IF( (CENTER  GT  LEFT)  AND  ( CENTER  GE  R I GHT ) ) GO  TO  300 
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IF ((CENTER  LT  LEFT ) AND  (CENTER  LE  RIGHT)) GO  TO  400 
GO  TO  500 
C 
C 

C VERTICAL  MAXIMUM  DETERMINATION 

100  DO  130  K=J+2, J+JWINDO 

L=JM(K) 

NEXT=P I X ( I , L ) AND  255 
IF (NEXT  GE  CENTER) GO  TO  105 
IF(NEXr  LT  DELOW)GO  TO  120 
GO  TO  130 

105  IF(NEXT  EG  BELOW >00  TO  130 

C FINISHED 

no  K = J+JW1ND0 

GO  TO  130 
C NEW  LOW 

120  BELOW=NEXT 

130  CONTINUE 

DO  160  K=J-JWINDn, J-2 
M=J-JWINDO+J  2-K 
L=JM( N) 

NEXT=>P  I X ( I L ) and  255 
IF(NL>I  GE  CT.NTERIGO  TO  140 
IF (NEXT  LT  ABOVE) GO  TO  150 
GO  TO  160 
C F I N I SHt  D 

140  K=J-2 

GO  TO  K-O 
C NEW  LOW 

150  ABOVE=NEXT 

160  CONTINUE 

IF  (ABOVE  GT  l)FLnw)BELOW=ABDVH 
SIZE^CFNTER  BELOW 
SI  ZE=SI  ZE<J2 

IF(SIZE  GT  255)3I7E=255 
SIZE=SIZE  AND  252 
SIZE^=BIZE  +3 

C INDICATES  VERTICAL  MAXIMUM 

GO  TO  50 
C 
C 

C VERTICAL  MINIMUM  DETERMINATION 

200  DO  230  K=J+2. J+JWINDO 

L=JM(K ) 

NEXT=PIX( I, L)  AND  255 
IF(NEXT  LE  CENTERIGO  TO  205 
IF(NEXT  GT  DELOW)GO  TO  220 
GO  TO  230 

205  IF(NEXT.EQ  BELOW)GO  TO  230 

C FINISHED 

210  K=J+JWINDa 

GO  TO  230 
C NEW  HIGH 

220  BELaW=NEXT 

230  CONTINUE 


( 
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DO  260  K=J-JWINDO, J-2 
M=J- JWI NDD+ J-2-K 
L=jri(M) 

NEXT=P I X ( I , L)  AND  255 
IF(NEXT. LE  CENTER)GO  TO  240 
IF ( NEXT. GT  ABOVE) GO  TO  250 
GO  TO  260 
C FINISHED 

240  K=J-2 

GO  TO  260 
C NEN  LOW 

250  ABOVE=NEXT 

260  CONTINUE 

IF (ABOVE  GT  BELOW ) ABOVE=BELOW 

SIZE=ABOVE-CENTER 

SIZE=SIZE*2 

1F(SIZE  GT  255)SIZE=255 
SIZE=SIZE.  AND  252 
SIZE=SIZE+2 

C INDICATES  VERTICAL  MINIMUM 

GO  TO  50 
C 
C 

C HORIZONTAL  MAXIMUM  DETERMINATION 

300  DO  330  L=H-2,  I+IWINDO 

NEXT=PIX<L, K1 ).  AND  255 
IF(NEXT  GE.  CENTER )G0  TO  305 
IF(NEXT  LT  RIGHT)G0  TO  320 
GO  TO  330 

305  IF(NEXT  EQ  RIGHT)GO  TO  330 

C FINISHED 

310  L=I+IWINDO 

GO  TO  330 
C NEW  LOW 

320  RIGHT=NEXT 

330  CONTINUE 

DO  360  L=I-IWINDO, 1-2 
M=I-IWIND0+I-2-L 
NEXT=PIX(M,  K1  ).  AND.  255 
IF<NEXT. GE  CENTER)GO  TO  340 
IFCNEXT  LT  LEFT)GO  TO  350 
GO  TO  360 
C FINISHED 

340  L=l-2 

GO  TO  360 
C NEW  LOW 

350  LEFT=NEXT 

360  CONTINUE 

IF(LEFT, GT  RIGHT )RICHT=LEFT 

ISIZE=CENTER-RIGHT 

ISIZE=ISIZE*2 

IF( ISIZE  GT  255) ISIZE-255 

IF<SIZE  GT.  ISIZE)GO  TO  500 

SIZE«ISIZE  AND  252 

SIZE=SIZE+1 

C INDICATES  HORIZONTAL  MAXIMUM 
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GO  TO  500 
C 

c 

HORIZONTAL  MINIMUM  DETERMINATION 
400  DO  430  L=H-2,  I + iWINDO 

NEXT=PIX (L, Ki ) AND  255 
IFINEXT  LE  CENTERIGO  TO  405 
IF (NEXT  GT  RIGHT) GO  TO  420 
GO  TO  430 

405  IF (NEXT  EG  RIGHT) GO  TO  430 

('  FINISHED 

410  L=I+IWINDO 

GO  TO  430 
C NEW  HIGH 

420  RIGHT=NEXT 

430  CONTINUE 

DO  460  L = I - IWINDP,  1-2 
M=I-IWINnO+I  2-L 
NEX r=PI X (M  KI ) mND  255 
IF(NEXt  lE  CENTER )G0  TO  440 
IE(NEXT  Gi  LEFTiGD  TO  450 
GO  TO  460 
V.  FINTSHCn 

440  L=I-2 

GO  TO  460 
C NEW  LOW 

4 50  LEFT-^NEXI 

460  CONTINUE 

IF<LEE  ? G'T  !•!  IOH7  )LLFT  = h IGHT 
ISIZE-LLET  CENTER 
ISIZE--!  SIZE,  1^2 
IF(ISIZE.  GT  255)  iSIZE-c:55 
IE (SIZE  GT  ISTZEIGO  TO  500 
SI ZE=I3 I ZE, AND  252 

C INDICATES  EIORIZONTAL  MINIMUM 

C 
C 
C 

c 

c 

( WRITE  OUT  POINT 

500  OUT<  1 MAPD)=SIZE 

550  CONTINUE 

0 
C 
C 

C WRITE  OUT  L INE  OF  DATA 

600  IER=IWRI TW<256, OUT. J/2-1.  ICW) 

C 

C 

C WRITE  EMPTY  LINES  AT  END 

650  J=J/2-l 

DO  700  I=l,JWIND0/2 
J=J+1 

700  1ER=IWR I TW(256, DUM, J. ICW) 
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CALL  CLOSECdCR^ 

CALL  CLOSEC(ICW) 

STOP  'ALL  DONE' 

800  WRITE(5,810) 

810  FORMATdX,  'VERTICAL  WINDOW  SIZE  TOO  L.ARGE  ' ) 

STOP 
END 
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MAX512  AUGUST  8,  1977  MITCHELL 

FINDS  LOCAL  EXTREMA  OVER  A 512X240  PICTURE  AND  OUTPUTS  THEM 
LOW  ORDER  2 BITS  OF  EACH  BYTE  ARE  CODED  AS  FOLLOWS 
00  - HORZ  MIN  01  - HORZ  MAi^ 

10  - VERT  MIN  11  - VERT  MAX 

EXTREMA  SIZE  INDICATED  BY  HIGH  6 BITS 

MAXMIN  SEARCHES  OVER  A WINDOW  OF  IWINDO  X JWINDO  AROUND 
EACH  POINT  INDICATING  WHETHER  IT  IS  A LOCAL  EXTREME  AND 
ITS  SIZE  THE  LOW  ORDER  BIT  IS  A ONE  IF  EXTREME  IS  A MAXIMUM 
AND  THE  NEXT  BIT  IS  A ONE  IF  IT  IS  A VERTICAL  EXTREME 
INTEGERfr2  JM(240)  CENTER, ABOVE  BELOW, L EF T , R I GH T . S 1 ZE 

LOG  I CAL  fl  I'  I X ( 512,  4 1 ) . OUT  ( 512  ) DUM  ( 5 1 2 ) 

I WIND0=30 
JWINDO= 1 5 
JM0D  = JWINDLHf2+  1 
IFIJMOD  GT  41)G0  TO  800 
E'O  10  . 512 

DUM( J)-0 
5 0UT(.l)---O 

SET  UP  MOD  lABLi.  FOR  v POSIT  ION 
DO  20  J=l,24(' 

O JM<  U )=J--(  J 1 ' / ,JMUD»JMni' 

CAI  L RENTER  ( I CF  ) 

CALL  WENTRNCICW.  1) 

IER=IRE  AUW(5I2*  IWINDO-  !’IX,  O,  ICR) 

IF(IER  LI  0)1.700  BAD  READ' 

DO  30  J=1  JWINDO 

U IER^IWRnW(256,  DUM-  J-1  ICW) 

DO  600  .l=JWINDOM  , 240- JWINDO 
NEXL  IN=J*-. IWINDO 
NEX  = JM( NE  XL  IN ) 

READ  IN  ONE  ! 1 NL  INTO  IRCULAR  BUFFER 
IER=IREADW<256,  P 1 X ( 1 , NL  X ) , NEXLlN-1,  I ''R  ) 

IFUER  LT  0)G0  10  650 
DO  500  I^IWINDOtl  512  IWINDO 
K 1 = JM ( J ) 

CENTER-P 1 X ( 1 . K1 1 AND  255 
K=JM< J-1 ) 

ADaVF=:P  I X ( I , K ) AND  255 
K = JM(  J-t-1  ) 

DELOW=P I X ( I . K ) AND  255 
SIZE=0 

IF( (CENTER  GT  ABOVE)  AND  (CENTER  GE  BELOW) )G0  TO  100 
IF( (CENTER  11  ABOVE)  AND  (CENTER  LE  PELOW))GO  TO  200 
LEFT=PI X ( I-l , K1 ) AND  255 
RIGHT=P1X( I H, K1 ) AND  255 

IF(  (CENTER  GI  LEFT)  AND  (CENTER  GE  RIGHT)  )(,'0  TO  300 
IF( (CENTER  I I LEFT)  AND  (CENTER  IE  RIGHT) )C0  TO  400 
GO  TO  500 


VERTICAL  MAXIMUM  DETERMINATION 
100  DO  130  K=J-^2.  JWINDO 

L=JM(K ) 

NEXT=PI X ( I , L ) AND  255 
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IF(NEXT  GE  CENTER)GO  TO  105 
IE<NEXT  LT  BELOW)GO  TO  120 
GO  TO  130 

C CHECK  FOR  FLAT  TOP 

105  IF(NEXT  EQ  BELOW)GO  TO  130 

C FINISHED 

110  K=J+JWINDO 

GO  TO  130 
C NEW  LOW 

120  BELOW=NEXT 

130  CONTINUE 

DO  160  K=J-JWINDO, U-2 

M=U-JWIND0+J-2-K 

L=UM(M) 

NEXT=PIX( I, L)  AND  255 
IF(NEXT  GE  CENTER)GO  TO  140 
IF(NEXT  LT  ABOVE)GO  TO  150 
GO  TO  160 
C FINISHED 

140  K=U-2 

GO  TO  160 
C NEW  LOW 

150  ABOVE=NEXT 

160  CONTINUE 

IF(ABOVE  GT  BELOW ) BELOW=ABOVE 

SIZE=CENTER-BELOW 

SIZE=SIZE*2 

IFCSIZE  GT  255>SIZE=255 
SIZE=ISIZE  AND  252 
SIZE=SIZE-t-3 

C INDICATES  VERTICAL  MAXIMUM 

GO  TO  50 
C 
C 

C VERTICAL  MINIMUM  DETERMINATION 

200  DO  230  K=J-t-2,  J-t-JWINDO 

L=UM(K) 

NEXT=PI X ( I , L ) AND  255 
IFCNEXT  LE  CENTERIGO  TO  205 
IFINEXT  GT  BELOW)GO  TO  220 
GO  TO  230 

205  IFINEXT.  EQ  BELOW)GO  TO  230 

C FINISHED 

210  K=J+JWINDO 

GO  TO  230 
C NEW  HIGH 

220  BELOW=NEXT 

230  CONTINUE 

DO  260  K=J-JWINDa. J-2 

M=J-JWIND0+J-2-K 

L=JM<M) 

NEXT=P I X U . L ) AND  255 
IFINEXT  LE  CENTER )G0  TO  240 
IFINEXT, GT  ABOVEIOO  TO  250 
CO  TO  260 
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C FINISHED 

240  K=J-2 

GO  TO  260 
C NEW  LOW 

250  ABOVE=NEXT 

260  CONTINUE 

IF(ABOVE  GT  BELOW ) ABOVE=BELOW 
SI 2E=AB0VE -CENTER 
SI  ZE=SI  ZE«-2 

ir(SlZE  GT  255)SI2E=255 
SIZE=SIZE  AND  252 
SIZE=SI ZE+2 

C INDICATES  MI'AI  MINIMUM 

GO  TO  50 

( 

C 

( HORIZONTAl  MAXIMUM  DETERMINATION 

300  DO  330  L=I+2  IMWINDO 

NEXT=P ' X c I . K 1 ) AND  255 
IFCNEX""  GE  CENTER  >00  TO  305 
IFCNEXr  IT  RIGHT)Gn  TO  320 
GO  ru  330 

305  IFCNEXT  EQ  TvIUHnoU  TO  330 

C FINISHED 

310  L=I-»IWINDO 

GO  TO  330 
C NEW  LOW 

320  RIGHT-NEXT 

330  CONTINUE 

DO  360  L=I  IWINDO. I -2 
M=I-IWINDO*^  I 2 L 
NEXT=PIX(M  K1)  AND  255 
IF  (NEXT  GE  t_[NTERTGO  TO  340 
IF  (NEXT  LT  LT-FTTGU  TO  350 
GO  TO  360 
C FINISHED 

340  L=I-2 

GO  TO  360 
C NEW  LOW 

350  LEFT=NEXT 

360  CONTINUE 

IF(LEFT  GT  R I GH f ) R 1 GHT =LE F T 

IS1ZE=CENTER  RIGHT 

ISIZE=I5IZE*2 

IFdSIZE  GT  255)  ISI  ZE=255 

IF(SIZE  GT  ISIZETGO  TO  500 

SIZE=SIZE  AND  252 

SIZE=SI ZE+1 

C INDICATES  HORIZONTAL  MAXIMUM 

GO  TO  500 
C 
C 

C HORIZONTAL  MINIMUM  DETERMINATION 

400  DO  430  L=I+2. I+IWINDO 

NEXT=PIX (L. K1 ) AND  255 
IF(NEXT  LE  CENTERTGO  TO  405 
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IFINEXT  GT  RIGHT)GO  TO 
GO  TO  430 

420 

405 

1F<NEXT  EG  RIGHT)&0  TO 

430 

C 

FINISHED 

4 10 

L=I+IWINDO 

GO  TO  430 

C 

NEW  HIGH 

420 

RIGHT=NEXT 

430 

CONTINUE 

DO  460  L=1-IWIND0,  1-2 
M=I-IWINDO+T  2-L 
NEXT=P1X(M, F n AND  255 

IF<NEX1  LF  (.I  NTER'QO  10  440 
1F(NEXT  GT  LFFT)QD  TO  450 
GO  TO  460 
k FINISHED 

440  L=I-2 

GO  TO  460 
(■  NEW  LOW 

450  LEFT=NEXT 

46(.  CONTINUE 

IFILEFl  GT  FUGHnLFFT-fnGHT 

ISI ZE  = LEFT  -Cr  NTER 

I5I  ZE==ISIZE  frO 

IFIISIZE  GT  255; ISI ZE-255 

IFiSIZE  GT  I'aZE  'GO  Tf)  500 

SIZE=ISI/E  AND  252 

C INDICATES  HnniZONTAL  MINIMUM 

C 

c 

c 

C 

c 

r WRITE  OUT  F'UINT 

500  OUT(I)=SIZE 

C 
(' 

C 

C WRITE  OUT  LINE  OF  DATA 

600  IER=IWR1TW(256. OUT, J-1, ICW) 

C 

C 

C WRITE  EMPTY  I INES  AT  END 

640  GO  TO  660 

650  J=J-1 

660  DO  700  I=1,JWIND0 

J=J+1 

700  IER=IWR ITW(256. DUM, J-1 , ICW) 

CALL  CLOSEC(ICR) 

CALL  CLOSEC(ICW) 

STOP  'ALL  DONE' 

800  WRiTE(5.810) 

810  FORMAT! IX, 'VERTICAL  WINDOW  SIZE  TOO  LARGE') 

STOP 
END 
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SUBROUTINE  WR I TEF ( LU. 1 CH, DB ) 
C 


c * * 

C * WRITER  CONNECTS  THE  USER  ENTERED  INPUT  FILE  TO  «• 

C * CHANNEL  ICH  AND  THE  OUTPUT  FILE  TO  LOGICAL  UNIT  * 

C * LU  LU  IS  ONLY  INPUT  PARAMETER  WHILE  ICH  AND  * 

C * THE  12  BYTE  ARRAY  DD  ARE  RETURNED  ON  OUTPUT 

C * ARRAY  DB  WILL  CONTAIN  THE  ASCII  EQUIVALENT  OF  * 

C * THE  INPUT  FILE  NAME  * 

C * * 


C ****«■**)>• 

LOGICAL*!  DB<12) 

INTEGER*2  SPEC ( 39 ) , DEF ( 4 ) 

COMMON/ ICS/SPEC. DEF 
DATA  DEF/3RDAT, 3RDAT. 3RLST, 3RLST/ 

CALL  RT-11  CSI  TO  INTERPRET  THE  INPUT  COMMAND  STRING 
10  WRITE<  5,  1 ) 

1 FORMAT ( ' ENTER  OUTPUT  AND  INPUT  FILES  <CS1  FORMAT)'/) 

IF < ICSI (SPEC. DEF,  , , 0)  NE  0 ) GO  TO  10 

ALLOCATE  AN  RT-11  CHANNEL  BETWEEN  O AND  17 
ICH=-1  - NO  CHANNELS  AVAILABLE 

= N - CHANNEL  N HAS  BEEN  ALLOCATED 
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ICH=IGETC( ) 

IF<ICH  EQ  -DSTDP  ' NO  CHANNELS  AVAILABLE' 

C 

C CONVERT  THE  12  CHARACTER  RADlX-50  EQUIVALENT  OF  THE 

C INPUT  FILE  NAME  IN  SPEC (16)  THROUGH  SPEC (17)  TO  THE 

C ASCII  EQUIVALENT  IN  DB ( 1 ) THROUGH  DD ( 1 2 ) 

C 

JS=R50ASC  ( 12, SPEC( 16), DD) 

C 

C ASSOCIATE  ALLOCATED  CHANNEL  WITH  INPUT  FILE 

C JS  = -1  - CHANNEL  ALREADY  OPEN  (SHOULDN'T  OCCUR) 

C = -2  - file  SPECIFIED  NOT  ON  DEVICE 

C = N = number  of  blocks  in  input  F-ILE 

C (NORMAL  RETURN) 

JS=LOOKUP( ICH, SPEC( 16) ) 

IF( JS  GE  O)  GO  TO  20 

IF(JS  EQ  -1)  STOP  ' CHANNEL  ALREADY  OPEN' 

IF<JS  EQ  -2)  WRITE(5, 3) 

3 FORMAT('  FILE  SPECIFIED  NOT  ON  DEVICE'/) 

GO  TO  10 

20  WR1TE(5, 5)  DP. JS 

5 FORMAT ('  INPUT  FILE  ' . 9A1 , ' . ' , 3A1 , ' HAS  ',13  BLOCKS'/) 

C 

C BEFORE  OUTPUT  FILE  IS  OPENED.  PLACE  THE  NECESSARY  I/O 

C FILE  INFORMATION  IN  THE  FORTRAN  LOGICAL  UNIT  TABLE 

C JS  = O - NORMAL  RETURN 

C ELSE  - UNIT  ALREADY  OPEN  OR  THERE  IS  NO  SPACE 

C FOR  ANOTHER  LOGICAL  UNIT  ASSOCIATION 
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JJ=IASIGN(Hj  SPEC(  1 ),  SPEC(2).  SPEC  «'  5 ) , 3 / 

IF(JJ  EQ  O)  RETURN 
WRITE (5, 6)  LU 

FORMAT!/.  ' LOGICAL  UNIT  ',12.  ' IS  EITHER  Al  READY  OPIN'- 
' ' OR  THERE  10  NO  ROOM  FOR  ANOTHER  LDGICAl  UNIT',/, 

ASSOCIATION  ■) 

STOP 

END 


} 

j 


I 

i 

I 


I 
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SUBROUriNF  REAliR  ( IHD,  IRF  ICB<  ICF,  NR  A ICH.  Nt) 
( RE  ADR  READS  A SF-'ECIFIED  WINDOW  OF  ROWS  AND 
(.  COLUMNS  FROM  A FILE  CONNECTED  TO  CHANNEL  NO 
C JCH  INTO  THE  PARAMETER  ARRAY  A THE  INPLn  FILE 
r SHOULD  CONTAIN  SEQUENTIAL  ROWS  OF  NC  BYTES  EACH 
C A SHOULD  BE  DIMENSIONED  WITH  NR  ROWS  IN 
( THF  CALLING  PROGRAM 
( 

> PARAMETERS 
IRB 

' IRF 

: I CD 

f IC  F 

. NR 

r 

>■  A 

ICH 


= THE  BEGINNING  ROW 
= THE  ENDING  ROW 
= THE  BEGINNING  COLUMN 
= THE  ENDING  COLUMN 
= THE  NUMBER  OF  ROWS  IN  I HE  HA J N 
PROGRAM  DIMF.NSION  STATEMENT  F JR  A 
= THE  LCK  UAlti  2-DIM  DATA  ARPA 
= THE  M-iANNEL  CONNECTED  TO  INF  niPUT 
FILE 


INTEGER*:-'  BUFF(2bA) 

LOGICAL  *1  A<  I 1 , AS(  T.12) 

FQUIVALBNCELASi  I > . I'lUEFI  1 ' > 

CC=512/NC 
IRR=IRB-  1 

I-  FIND  BLOCK  WHICH  HOLDS  FIRSl  ROW 
B=IRR  /CC 
ID  = B 
K = 0 

IFJ^B  IB>  GT  • O AND  NC  GT  255>K=2DE 
•:  COMf^UTE  NUMBER  OF  ■,  GLUMNS  AND  ROWS  TO  M READ 
IR= IRF-IRR 
IC=  ICF-ICiH-2 

READ  IN  FIRST  BLLKK  OF  DATA 

JS=  IREADW(2f>6.  BUFF  . IB.  ICH) 

C BEGIN  TO  TRANSFER  THE  PROPER  COLUMNS  OF  THE 
C CURRENT  ROW  TO  THI  ARRAY 
DO  30  JR= 1 . IR 
DO  20  JC= 1 - IC 
A(  ( JC-1  )*NR<-  JR  1 =AS<  K-flCB  ) 

K=K-*-l 

O CONTINUE 

CHECK  FOR  NEW  BLOCK 

IF(NC  GE  2J>6)GO  TO  25 
IF(K  GE  512)G0  TO  40 

30  CONTINUE 

RETURN 

40  IB=IB-H 

US=IREADW(256, BUFF. IB, ICH) 

K=0 

GO  TO  30 

25  IFCK  GE  256  OR  CC  EQ  1 0)G0  TO  40 

K=256 
GO  TO  30 
END 
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SUBROUTINE  RENTER < I CH. PD ) 

C RENTER  INTERROGATES  THE  USER  FOR 
C THE  INPUT  FILE  IN  STANDARD  CSI  FILE  FORMAT 
C AND  CONNECTS  THE  FILE  TO  A FREE  CHANNEL 
C NUMBER  THE  CHANNEL  AND  12  BYTE  ASCII  FILE 
( NAMt  ARE  PASSED  BACK  THROUGH  ICH  AND  DB 
C 

c parameters 

C ICH  = THE  CHANNEL  TO  WHICH  THE  FILE 

C WAS  CONNECTED 

C DP  = THE  12  BYTE  VECTOR  CONTAINING 

C THE  file  ASCII  NAME 

C 

LOGICAL«I  DB( 12), IDU. PB< 12) 

INTEGER*2  DDP(6) . IB(A ), SPEC! 1 ). DEF ( 1 ) 

EQUIVALENCE  ( DDE  < 1 ) , DD  < 1 ) ) , <5PEC(  16)  • IBID) 
COMMON  /ICS/SPEC, DEF 
10  WRITE  <5,  3) 

3 FORMAT! IX, 'ENTER  A (SI  INPUT  FILE  DESCRIPTOR  '/) 

IF( IC5I (SPEC,  DEF,  ,, 0)  NE  0 > GO  TQ  lO 
ICH=IGETC ( ) 

IF (ICH  LT  OISIOP  NO  CHANNELS  AVAILABLE  BUD' 
J3=R50ASC< 12, IB. DBB) 

JS=LOOKUP ( ICH, IB ) 

IF( J5  LT  0)WRITE(5, S) 

IF<JS  LT  0)G0  TO  lO 

6 FORMAT! IX, 'NO  SUCH  INPUT  FILE  DUD  ) 

WRITE! 5, 6> JS 

o FORMAT ! 1 X,  ' INinn  FILE  .13.  BL.0CK3  ' ) 

DO  20  11=1, 12 
PB! I I )=DB< I I ' 

.'O  CONTINUE 

RETURN 
END 
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SUBROUTINE  WENT RN ( I CH, NB , PB ) 

C WENTRN  INTERROGATES  THE  USER  AT  THE  TTY 
C FOR  THE  STANDARD  CSI  OUTPUT  FILE  NAME 
C IT  THEN  CONNECTS  UP  THE  FILE  TO  A FREE  CHANNEL 
C NUMBER  AND  MAKES  A TENTATIVE  ENTRY  ON 
C THE  DIRESTORY  OF  THE  APPROPRIATE  DEVICE 
C THE  FILE  IS  MADE  PERMANENT  BY  THE  USER  BY 
C CLOSING  THE  CHANNEL 
C 

C PARAMETERS 

C ICH  = THE  CHANNEL  TO  SHICH  THE  FILE  WAS 

C CONNECTED 

C NB  -•  THE  NUMBER  OF  BLOCKS  TO  RESERVE  FOR  1 1 IE 

C OUTPUT  FILE 

C DB  = THE  12  BYTE  VECTOR  CONTAINING  THE  F ] l.l 

C ASC I I NAME 

C 

LOGICAL*!  DB ( 12 ) , IDU, PB ( 12) 

INTEGER *2  DBB(6), IB(4), SPEC ( 1 >. DEF( 1 ) 

EQUIVALENCE  ( DB ( 1 > . DBB< 1 ) ),  (SPEC( 16).  1B(  1 ) ) 
COMMON  / ICS/SPLC. DEF 
10  WR ITE( 5, 3 ) 

3 FORMAT!  IX,  'ENTER  A CSI  OUTPUT  FILF  DESCR I P fOR  ' / ) 

1F( ICSI (SPEC, DEF, ,, O)  NE  O ) GO  TO  10 
ICH=IGETC  < ) 

IFCICH  LT  0)ST0P  NO  CHANNELS  AVAILABLE  BUD' 
JS=R50ASC (12, IB, DBB ) 

JS=IENTER ( ICH, IB. NB ) 

IF( JS  LT  0)WRITE(5, b) 

5 FORMAT! IX, 'NO  SPACE  ON  THE  DEV  BUD') 

IF(JS  LT  0)G0  TO  10 

WRITE! 5, 6) JS 

6 F0RMAT(1X.  'OUTPUT  FILE  RESERVED  ',13,  BLO(.KS') 
DO  20  11=1,12 

PB( II )=DD( I I ) 

20  CONTINUE 

RETURN 
END 
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SUBROUTINE  AREAD( IRB. IRF. ICB. ICF. NR. A, ICH) 
INTEGER*2  BUFF(256) 

LOGICAL*!  AS(512).A(1) 

EQUIVALENCE  ( AS ( 1 ) . BUFF ( 1) ) 

C FIND  FIRST  BLOCK  TO  BE  READ  USING  240  BYTE  COL 
ICC=ICB-1 
IB=ICC/2  125 

C COMPUTE  NUMBER  OF  COLUMNS  AND  ROWS  TO  BE  READ 
IR=IRF-IRB+1 
IC=ICF-ICC 

C READ  IN  A BLOCK  OF  DATA 

JS=IREADW(256, BUFF, ID, ICH) 

C READ  IN  COLUMNS  TO  A 
DO  30  UC=1,  IC 

C COMPUTE  POSITION  IN  THE  BLOCK  OF  THE  FIRS'' 

C BYTE  TO  BE  READ 

P=FLOAT( JC+ICC  1)*240  - ( FLOAT < I B ) *5 1 2 0) 
IP=P*IRB-1  0 
1 = 1 

C READ  IN  THE  ROW  ELEMENTS  FROM  THE  BUFFER  IF  THl 
C or  THE  BUFFER  IS  REACHED  JUMP  TO  100 
DO  20  JR=1, IR 
IFdP-H  GT  512)G0  ID  100 
10  A(  ( JC-1  )*NR+JR  ''=AS(  IP  + I ) 

1 = 1 + 1 

20  CONTINUE 

30  CONTINUE 

RETURN 

C INCREMENT  BLOCK  COUNTER, REAP  IN  A MEW  BLOCK  AND 
C SET  CURRENT  BYTE  INDEX  TO  ZERO 
too  IB=ID+1 

JS=IREADW(256, DUFF, ID, ICH) 

IP=IP-512 

IF< IP  LT  O) IP=0 

1 = 1 

GO  TO  10 
END 


1 ND 
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SUBROUTINE  ASK 
INTEGER  SPEC (39) 

REAL*4  EXT(2) 

DATA  EXT/6RDATDAT, 6RDATDAT/ 

10  TYPE  99 

99  FORMAT ( ' ENTER  OUTPUT  AND  INPUT  FILES  '/) 

C 

IF( ICSI (SPEC, EXT, ,, 0)  NE  0)G0T0  10 
C 3 IS  WRITE  FILE 

CALL  IASIGN(3, SPEC( 1 ), SPEC (2), SPEC ( 5 ) • 1 ) 

4 IS  READ  FILE 

CALL  IASIGN(4, SPEC( 16), SPEC ( 1 7 ) , 0 32 ■ 

RETURN 

END 

SUBROUTINE  WINDOW 
INTEGER  HAVE 

LOGICAL*!  A (600), MATRIX (20, 20), D(20, 600) 
INTEGER  X(600) 

INTEGER  WINDX, WINDY, PICX, PICY.  IX.  lY,  I TEMP 
INTEGER  POINTl  P0INT2 

COMMON  WINDX,  W I NDY, P I C X , P I C Y,  I X , I Y , POINT  1 
COMMON  P0INT2. A, MATRIX 
EQUIVALENCE(  A(  1 =?  ) , X ( 1 ) ) 

IFCIY  EQ  HAVE)  GOTO  97 
J=0 

J IS  THE  NUMBER  OF  DUMMY  ROWS 

JKTEMP=  5*WINDY 
K=I Y-JKTEMP 
IF(K)  100, 100, 200 
100  DO  35  I=K,  0 

35  J=J-H 

200  P0INT1=K*J 

FIND(4 'POINTl ) 

FIRST  ROW  TO  BE  READ  IS  POINTl 

ITEMP=  5*WINDX 
JK=J+1 

LWINDX=  5*PICX 
DO  17  K=JK, WINDY 

READ (4 'POINTl, END=3/)  (X(  I ),  1 = 1, LWINDX) 

C TYPE  47, ( X ( I ) , 1=1 , 40) 

DO  27  L=1 , WINDX 

27  MATRIX(K,  L)=A(  IX--ITEMP-^L-*-17) 

DO  87  1=19, 600 
87  B(K, I )=A( I ) 

17  CONTINUE 

C TYPE  47, ( (MATR1X( I, J), J=l, WINDX). 1=1, WINDY) 

37  CONTINUE 

HAVE=IY 
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RETURN 

97  DO  107  J=JK.  WINDY 

DO  117  I=1,WINDX 

117  MATR1X<J. IX-ITEMP+I+17) 

107  CONTINUE 

TYPE  47. ( (MATRIX ( 1, J). J=l. WINDX). 1=1. WINDY) 
TYPE  47. (B(I). 1=1. 50) 

47  FORMAT< IX. 8( IX. 08) ) 

RETURN 

END 
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SUBROUTINE  START <LL) 

C START  INITIALIZES  ALL  THE  COMMON  VARIABLES 
C USED  BY  THE  GRAPH  LIBRARY  ROUTINES. 

C ALL  CALLS  TO  GRAPH  ROUTINES  WHICH 
C CONTAIN  LABELED  COMMON  BLOCK  GRAP 
C SHOULD  BE  PRECEDED  BY  A CALL  TO  START 
C 

C PARAMETERS 

C LL  = THE  LOGICAL  UNIT  NUMBER  TO  WHICH 

C ALL  GRAPHICS  OUTPUT  WILL  BE 

C SENT 

C 

C COMMON  VARIABLES 

C LU  = THE  LOGICAL  UNIT  NUMBER  TO  WHICH 

C THE  OUTPUT  WILL  BE  SENT 

C IX  = THE  X COORDINATE  OF  THE  LOWER  LEFT 

C HAND  CORNER  OF  THE  GRAPHICS  WINDOW 

C lY  = THE  Y COORDINATE  OF  THE  LOWER  LEFT 

C HAND  CORNER  OF  THE  GRAPHICS  WINDOW 

C ISX  = THE  SIZE  IN  THE  X DIRECTION 

C OF  THE  WINDOW 

C ISY  » THE  SIZE  IN  THE  Y DIRECTION  OF  THE 

C WINDOW 

C A = THE  LOGICAL*!  ARRAY  USED  TO  OUTPUT 

r THE  COMMANDS  TO  DEVICE  LU 

C 

LOGICAL*!  A(?000» 

COMMON  /GRAP/L  U.  IX,  lY.  ISX,  ISY.  A 
DATA  A/ 2000*0/ 

LU=LL 

IX=100 

IY=!00 

ISX=5!2 

ISY=512 

RETURN 

END 
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SUBROUTINE  6RA< IR,  1C.  NR,  A) 

C GRA  PLOTS  OUT  THE  ROWS  AND  COLUMNS 
C CONTAINED  IN  THE  BYTE  ARRAY  A. 

C THE  VALUES  IN  A ARE  FIRST  SCALED  TO 
C 16  "GREY"  LEVELS  BETWEEN  ; 

C IB  < GL  < IB+IS 

C WHERE  IB  AND  IS  ARE  ENTERED  AT  THE  TTY 
C GSX  THEN  PLOTS  OUT  THE  CORRESPONDING 
C GREY  VALUES  BY  ROWS  THE  LEFT  BOTTOM 
C CORNER  OF  THE  WINDOW  IS  AT 
C X = 620 

C Y = 360 

C 

C PARAMETERS 

C IR  = THE  NUMBER  OF  ROWS  IN  A 

C IC  = THE  NUMBER  OF  COLUMNS  IN  A 

C NR  = THE  NUMBER  OF  ROWS  IN  THE  DIMENSIONING 

C OF  A 

C A = THE  DATA  ARRAY  LOGICAL*! 

C 

C SUBROUTINES  REQUIRED 

C FROM  GRAPH  - GSX. LOAOD> LX. CKHX 

C 

C LIMITS  : 

C A CAN  HAVE  AT  MOST  100  ROWS 

C 

LOGICAL*!  A(NR. 1 ). IZ( 100). K. B( 1 ) 

COMMON  /GRAP/LU.  IX,  lY,  ISX,  ISY,  B 
WRITE  (5,  1 ) 

1 FORMAT! IX. 'INPUT  YOUR  VALUE  FOR  BLACK  AND 
1 THE  CONTRAST  SPREAD  PLEASE  214') 

READ(5. 2) IB. IS 

2 F0RMAT(2I4) 

CALL  1NIT(5) 

S=IS 

DO  20  J=l. IR 
II=IR-J+1 
DO  10  1=1. IC 
JJ=IC-I+1 

KK=A ( 1 1 . J J ) AND  255 

FK=KK-IB 

IF(FK  LT  0)FK=0 

IF(FK  GT  S)FK=S 

IZ( I )=16  -< 16  0*FK/S) 

10  CONTINUE 

CALL  CSX! 155. 90+U.  IZ.  IC) 

20  CONTINUE 

CALL  LOADS ! 620. 300.  B.  2) 

IS=IB+IS-1 
B! 1 )-29 
B!6)=31 

WR1TE!LU. 3) !B! I ). 1=1. 6). IB. IS 

3 FORMAT! '+'.♦. 6A1. 'THE  CONTRAST  SPREAD 
1 BLACK  - '.13.  2X,  'WHITE  - '.13) 

CALL  LOADS !0. 760.  B.  2) 

WRITE !LU. 4) !B! I ).  1 = 1. 6) 
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4 FORMAT< 6A1 ) 

RETURN 
END 


SUBROUTINE  GSX ( I X,  I Y,  I Z, NZ ) 

C GSX  FORMS  A GREY  LEVEL  INTENSITY  PLOT 
C FOR  A ROW  OF  VALUES  PASSED  THROUGH  THE 
C BYTE  VECTOR  IZ  THE  VALUES  IN  IV  MUST 
C BE  BETWEEN  O AND  16  EACH  VALUE  IS  USED 
C TO  FORM  A 4 BY  4 ELEMENT  WITH  POINTS 
C TURNED  ON  CORRESPONDING  TO  IT'S  GREY  LEVEL 
C THE  ROW  IS  PLOTTED  STARTING  AT  SCREEN  ADDRESS 
C X = IX*4 

C Y = lY  * 4 

C 

C PARAMETERS 

C IX  = THE  X VALUE  OF  THE  LOWER  LEFTMOST 

C POINT  OF  THE  ROW'S  FIRST  ELEMENT 

C lY  = THE  Y VALUE  OF  THE  LLFT  POINT 

C IZ  = THE  LOGICAL*!  ARRAY  WITH  THE  GREY  LEVELS 

C NZ  = THE  NUMBER  OF  POINTS  IN  IZ 

C 

C LIMITS 

c o < IX  <:  255  0 : lY  <:  i90 

c 

C SUBROUTINES  REQUIRED  LX.CKHX 
C 

LOG  I CAL*  1 I W < 4 ) , A ( 1 ) . AF  ( 256  ) , AP  ( 256  ) , 1 ( NZ  ) . HY 
LOGICAL*!  HX,LAX,T,HXX 
COMMON  /GRAP/LU,  IXX.  lYY,  ISX,  ISY,  A 
EQUIVALENCE  (A( 1400), AF ( 1 ) ) , <A( 1660), AP ( ! ) ) 

C CALCULATE  SCOPE  ADDRESSES 
KX=IX*4 
KXM=KX-! 

KY=IY*4-! 

C CALCULATE  LOW  Y'S 
DO  !0  I = !,4 

IW(I)  = (KY+I  AND  ”37)+*'!40 
!0  CONTINUE 
KYP=KY+! 

HY=( "!740.  AND  KYP)/32+"040 
HX=<"!740  AND  KX)/32+"040 
LAX=(”37  AND  KX)-t-"!00 

C CALCULATE  THE  NUMBER  OF  FULL  COLUMNS  IN  EACH 
C ELEMENT  AND  THE  NUMBER  OF  PTS  IN  THE  PARTIALLY 
C FILLED  COLUMN 

DO  20  1=!, NZ 
IT=IZ( I ) AND  255 
IFF=IT/4 

AP(I)=(IT/4  0-IFF)*4  0 
AF< I )=IFF 
20  CONTINUE 

C FILL  UP  THE  OUTBUFFER  WITH  THE  COMMANDS 
C TO  TURN  OFF  AND  ON  THE  PEN  AS  IT  TRAVELS 
C ALONG  THE  4 COLUMNS  THAT  MAKE  UP  THE  ELEMENT 
C COLUMN 

A( 1)»0 
IN=2 

DO  50  1*1. 4 
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HXX»HX 
A< IN)=29 
A( IN+1 )=HY 
IYC»1W( I ) 

A( IN+2)=IYC 

A( IN+3)»HX 

A< IN+4>=LAX 

IN=IN+5 

LC=1 

IFL2=1 

IFL=0 

T=AF ( 1 ) EQ  O AND  AP ( 1 ) EQ  O 
IF(T) IFL=1 
IF<T)LC=2 
IF(T)00  TO  35 

C LOAD  INITIAL  ADDRESS  OF  THE  CURRENT  LINE 
C INTO  THE  BUFFER  THEN  SEARCH  FOR  THE  X WHICH 
C MARKS  THE  END  OF  CONTINUOUS  WRITING  AND 
C BEGIN  WRITING  DARK  AND  SO  ON  TO  THE  END 
C OF  THE  COLUMN 

30  IF(AF(LC)  GT  0)G0  TO  40 
IF(AP(LC)  CT  0)IP=AP(LC) 

IF<AP<LC).EQ  0)00  TO  31 
IXC=KXM+(LC-1 )*4+IP 

A( IN)=IYC 
IN=IN+1 

CALL  CKHX( IXC, A. IN. HXX) 

AP ( LC ) =0 

31  IP=0 
IFL=1 

GO  TO  40 

35  IF(AF<LC)  GT  O ) GO  TO  37 

IF(AP<LC)  GT  0)G0  TO  37 
1FL2=1FL2+1 

IF(IFL2  EQ  NZ)GO  TO  55 
GO  TO  40 
37  A(IN)=29 

A( IN+l )=IYC 
IN=IN+2 

CALL  CKHX(KX+(LC-1 )*4. A, IN. HXX) 

IFL=0 
GO  TO  30 

40  IF< IFL  NE.  1 )G0  TO  45 

LC=LC+1 

IF(LC  GT  NZ)00  TO  49 
00  TO  35 

45  AF<LC)-AF(LC)-1 

LC*LC+1 

IFCLC  GT  NZ)00  TO  49 
00  TO  30 

49  IF<IFL  EQ  1)00  TO  50 

A( 1N)=IYC 

IN-IN+1 

CALL  CKHX(KXM+(LC-1)*4, A. IN. HXX) 

50  CONTINUE 

55  MRITE(LU. 1)(A(I>. I»l. IN-1) 
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SUBROUTINE  LXdX.A.  IN) 

C LX  CONVERTS  THE  X COORDINATE  TO  ITS  2 
C BYTE  ADDRESS  AND  STORES  THE  BYTES  IN 
C A AS  INDEXED  BY  IN 
LOGICAL*!  A(l) 

A( IN)  = < IX.  AND  "1740)/32+"040 
A( IN+1 )=( IX. AND. "37)+"l00 
RETURN 
END 

SUBROUTINE  LYdY.A.  IN) 

C LY  CONVERTS  lY  TO  ITS  2 BYTE  ADDRESS 
C AND  STORES  THE  BYTES  AS  HI  Y AND  LO  Y 
C IN  A AS  INDEXED  BY  IN 
LOGICAL*!  A(!) 

AdN)  = dY  AND  ’•!740)/32+"040 
AdN+l)  = dY  AND  "37)+"!40 
RETURN 
END 

SUBROUTINE  CKHX d X . A. IN, HX ) 

LOGICAL*!  A(!)  HX 

CKHX  LOADS  A HIGH  X AND  Y INTO  THE  APPROPRIATE 
POINT  IN  ARRAY  A UNLESS  THE  NEW  HX  IS  EQUAL 
C TO  THE  PREVIOUS  ONE  IN  WHICH  CASE  ONLY  THE  LX 
C IS  LOADED  INTO  A ASSUMING  A LOWY  IS  ALREADY 
C PRESENT  LX  IS  LOADED  INTO  AdN-I) 

CALL  LXdX,  A,  IN) 

IF(AdN)  EQ  HXIGO  TO  !0 
HX=A( IN) 

IN=IN+2 

RETURN 

10  AdN-I  )=AdN+l  ) 

RETURN 

END 

SUBROUTINE  LOADS (I  X,  I Y. A,  IN) 

C LOADB  CONVERTS  THE  X AND  Y COORDINATES  TO 
C A 4 BYTE  ADDRESS  USABLE  BY  THE  TTY  AND 
C STORES  THE  4 BYTES  IN  ARRAY  A STARTING  AT 
C BYTE  IN 

LOGICAL*!  Ad) 

A<IN)  = dY  AND  "!740)/32+"040 

AdN+!  ) = dY  AND  "37)  + "!40 

A<  IN+2)  = ( IX  AND.  "!740)/32+’’040 

AdN+3)  = dX  AND  "37)>-"!00 

RETURN 

END 

SUBROUTINE  INITILU) 

C ERASES  SCREEN  HOMES  CURSOR 
I="006033 
WRITE (LU. 1)1 
! FORMAT!  A2) 

RETURN 

END 


SUBROUTINE  GRID<NL) 

C GRID  WRITES  OUT  NL  EVENLY  SPACED  HORIZONTAL 
C GRID  LINES  FILLING  THE  GRAPHICS  WINDOW 
C WITH  EXTENSIONS  PASSING  THE  LEFT  SIDE  OF 
C THE  WINDOW  PROVIDING  THE  TIC  MARKS 

C 

C PARAMETERS 

C NL.  = THE  NUMBER  OF  DIVISIONS  INSIDE  THE 

C WINDOW  NL+1  LINES  ARE  DRAWN 

C 

C SUBROUTINES  REQUIRED 
C FROM  GRAPH  - LX.LY 

C 

LOGICAL*!  A< 1 ) , IB  < 4 ) 

COMMON  /GRAP/LU,  IX.  lY,  ISX,  ISY,  A 

ID=ISY/NL 

JX=IX-t-ISX 

KX=IX-20 

A(1 )=29 

CALL  LX ( JX.  IP.  1 ) 

CALL  LX(KX,  IP.  0) 

JY»IY 

DO  10  I = 1 , Nl.  + 1 
IN^( I~1 )*8+2 
CALL  LY( JY, A. IN^ 

A(  IN-*-2)  = IB(  I I 
A( IN+3)=ID<2' 

A( IN+4 )=A< IN< 1 ' 

A< IN+51=IB(3) 

A( IN+6)=IB(4 ) 

A( IN+7)=29 
JY=JY-*-ID 
10  CONTINUE 

WRITEILU.  1 ) (A< I ),  1 = 1. 8*NL  + 1 ) 

1 FORMAT!  '4  <t,  180A1  ) 

RETURN 

END 

SUBROUTINE  FRAME! • 

C FRAME  WRITES  A BOX  AROUND  THE  WINDOW 
C AS  DELINEATED  BY  THE  v OMMON  VARIABLES 
LOGICAL*!  A(l) 

COMMON  /GRAP/LU.  IX.  lY,  ISX,  ISY.A 
ILX=IX 
ILY=IY 

CALL  LOADB( ILX. ILY, A, 2) 

ILX  = ILX4-ISX 

CALL  LOADB( IL X, ILY, A. 6) 

ILY=ILY4ISY 

CALL  LOADB( ILX,  ILY, A,  10) 

ILX=IX 

CALL  LOADB< ILX, ILY, A, 14) 

1LY=IY 

CALL  LOADB( ILX, ILY, A, 18) 

WRITE(LU, 1 ) (A( I ), 1=1. 21 ) 

1 FORMAT!  21A1) 

RETURN 
END 
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SUBROUTINE  AX  I S ( XV. YV. NX  NY ) 

C AXIS  WRITES  OUT  THE  VECTOR  OF  Y AND  X 
C VALUES, GIVEN  IN  XV  AND  YV. EVENLY  DISTRIBUTED 
C ALONG  THE  WINDOW  AS  SET  FORTH  IN  THE  COMMON  VARIABLES 
C 

C PARAMETERS 

C XV  = THE  VALUES  TO  BE  WRITTEN  ALONG  THE  X AXIS 

C YV  = THE  VALUES  TO  BE  WRITTEN  ALONG  THE  Y AXIS 

C NX  = THE  NUMBER  OF  X VALUES 

C NY  = THE  NUMBER  OF  Y VALUES 

C 

C LIMITS 

C THE  X OR  Y VALUES  MUST  NOT  EXCEED  15 

C 

SUBROUTINES  REQUIRED  LOADB 

LOGICAL*!  A(l) 

INTEGER*2  XV ( NX ) , V V < NY ) 

COMMON  /GRAP/LU.  I X,  I Y,  ISX.  IBY,  A 
A( 1 )=29 
A(6)=31 
ND=ISY/ (NY-1  ) 

ID=ISX/ (NX-1  ) 

JY=IY 
JX=IX-32 

C WRITE  OUT  THE  VALUES  ALONG  THE  Y AXIS 
DO  10  1=1, NY 
CALL  L0ADB(0, JY, A, 2) 

WRITE(LU,  1 ) (A( J),  J=l.  6).  YV( I ) 

1 FORMAT ( 6A1 . 15) 

JY=JY+ND 
10  CONTINUE 

C WRITE  OUT  THE  X AXIS  VALUES 
DO  20  1=1, NX 
CALL  LOADB( JX, 50, A. 2) 

WRITE(LU, 1 ) ( A( J), J=l, 6), XV( I ) 

JX=JX+ID 
20  CONTINUE 

RETURN 
END 
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SUBROUTINE  T I C X < LT ■ NM, NS ) 

LOGICAL*!  A( 1) , Y(4). LYY, HX, HY 
COMMON  /GRAP/LU,  IX.  lY,  ISX,  ISY.A 
C TICX  PLOTS  NM-1  MAJOR  TIC  MARKS  OF  LENGTH 
C LT  AND  NS-1  MINOR  TIC  MARKS  OF  LENGTH  LT/2  IN 
C BETWEEN  EACH  PAIR  OF  MAJOR  TIC  MARKS  ON  THE  X 
C AXIS 
C 

C SUBROUTINES  REQUIRED  LOADB.LY.LX 
C 

LTS=LT/2 

NI=ISX/NM 

IF< (FLOAT! ISX ) /NM-NI ) GE  5>NI=NI*1 

NSI=NI/NS 

CALL  LY( lY-LT.  Y,  1 ) 

CALL  LY< lY-LTS, Y, 3) 

A(1 )=29 

CALL  LOADB( IX, lY, A- 2) 

HY=A(2) 

LYY=A<3> 

HX=A(4 ) 

IN=6 

NT=NM*NS+1 

JM=0 

DO  20  1=1. NT 

IF( ( I -1 ) /NS*NS  EQ  (I-!)) GO  TO  10 

KX=KX-t-NSI 

A( IN)=29 

A< IN+l )=HY 

A( IN+2)=L YY 

CALL  LX (KX, A, IN+3) 

IN=IN+5 
A( IN)=Y(3) 

A( IN+1 )=Y(4) 

A( IN+2)=A( IN-1 ) 

IN=lN+3 
GO  TO  20 

10  KX=IX+JM*NI 
A( IN)=29 
A( IN+1 )=HY 
A( IN+2)=LYY 
CALL  LX (KX, A, IN+3) 

IN=IN+5 
A( IN)=Y( 1 ) 

A( IN+1 )=Y(2) 

A( IN+2)=A( IN-1 ) 

IN=IN+3 

JM=JM+1 

20  CONTINUE 

WRITE(LU. 1)(A(I), 1=1. IN-1) 

1 FORMAT!  '+'.♦,  124A1  ) 

RETURN 

END 
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X PRSCEDIXO  PA5E  BLaNK-NOT  PILMED 


\ 


1016'*TFMP(  1 ) , IMAGAN 


1 

C 

2 

C 

3 

C 

THIS  PPOG9AM  GEMEF’ATF*:  At!  IMAGE  PPQM  THE  BOUNDARY 

4 

C 

POINTS^  V.iHILE  AOUr:''  A NC'I'=Y  EIP|D.  THE  PICTURE  IS 

*5 

C 

THPESHOLDED  AMD  PRH.'TED  If'i  A BINARY  FORm>  FINALLY 

6 

C 

THE  BOUtJDARY  OF  TPr  NOISY  IMAGE  IS  TRACED  AND 

7 

C 

WRITTEN  ON  UNIT  8. 

R 

C 

9 

C 

INPUT  required: 

10 

C 

1)  BOUNDARY  POINT'".  IDENTIFIER  AND  NUMBER  OF 

1 1 

c 

POINTS  ON  FIix’T  RECCRD.  (A6.I4)  FQDwAT, 

12 

c 

BOUNDARY  C^npoinATR^  ON  SUBSEQUENT  RECORDS 

13 

c 

(2F5.2)  FORM'.  T.  U^iJT 

14 

c 

2)  GEhFRATED  ^JOI'^E.  AS  OUTPUTTED  BY  NOI  = ‘=' 

l"^ 

c 

GEtFRATIt'G  prv'Or.'ftv,  q 

16 

c 

3)  STARTING  POINT  FQP  BOUtJDAPY  TRACE  AND  RELATIVE 

17 

c 

DIRECTIOFi  FOP  tracing  ray.  FREp  FORMAT.  UNIT  5 

IR 

c 

19 

c 

output: 

20 

c 

n IMAGE  WITH  NOIRE 

21 

c 

21  CONTOUR  OF  NOISY  ImAGF 

22 

c 

31  BOUFJDARY  POINTS  OF  NOISY  P'AGE.  SAME  FORMAT  AS 

23 

c 

INPUT,  UNIT  R 

24 

c 

25 

c 

REQUIRES  SHBPONTINES  INBND.  SCALE.  DEC.  BnDTRC.  SORT 

26 

c 

R PPNTBD 

27 

c 

2R 

c 

29 

DIMENSION  IMAG(IOA)  .LINEf  inn)  , BOUND  ( 30''i  1 .IBND(lOn) 

30 

1 .PICT(5n.50l  , ISl  (10  '1 

31 

real  IMAG.UAmE 

32 

DATA  NY/3UYES/ 

33 

c 

34 

10 

CONTINUE 

35 

c 

36 

DO  15  . .100 

37 

IBND ( J' 

3R 

ISl ( ji- 

39 

15 

CONTPiL 

40 

c 

41 

call  INBND  ( name. BOL'ND.  ILIM) 

42 

c 

43 

READ(9.3ni  N. M. SIGMA. ACOR 

44 

30 

FORMAT (2 13. 10 X.2E] 0.51 

45 

WRITE(6,401  sigma. ACOP 

46 

40 

FOPMAT(/*  FIRST  ORDER  'lARKOV  MOISE  ."ITH*/ 

47 

1*  STAIjDARD  deviation;  • .F6. 2.  • CORRELATION  • 

4R 

2. ’COEFFICIENT: ' ,F6.2./1 

49 

C 

50 

1=1 

51 

CALL  SCALE (BOUt  T.IlIM.N.M) 
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*52 

C 

53 

DO  HIO  J-l.r' 

54 

READrOfSO)  ( IMAr-fK  ) .K=l 

55 

50 

FORI-'AT(  l''F’  n.5) 

5ft 

CALI  DEC  (D()i  iriD.  Ir/AG.LIDE.  I . ILTM,N.M»  IBND»PICT»  J»  ISl 

57 

100 

CONT.lrjUF 

5ft 

C 

59 

RrAD(5»30n)  (BOUND: J) *J=1»2) »IXf lY 

60 

300 

FORMAT ( ) 

61 

CALL  BNDTF-C  f PICT  » BOUND  * iy»  lYrM.  ILIM) 

62 

IL2::TL  Iv+ILIN- 

63 

WRITE(ft»ftni ) NAME r ILIM* (BOUND (J) .J=l . IL 2 ) 

64 

600 

FORMAT (Aft, 1 X. 13,/, (2F5.2) ) 

65 

ENDFILE  8 

ft  ft 

CALI  f>ORT(BOI"'D*  II  IM) 

67 

V;PlTE(ft,9P^M  NAME 

6fi 

999 

FORMAT(M*  EDGE  CONTOUP  FOP  NOISY  *,86/) 

6^ 

call  PPMTBD (BOUND, I L I M , N , M , L I NE ) 

70 

C 

71 

STOP 

72 

END 
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1016*TE:MP(  1 ) . IMBND 


1 

subroutine  INBND(NAME^BOU^JD^  ILIM) 

2 

C 

3 

C 

4 

C 

ROUTINE  TO  READ  BOUNDARY  DATA  FRQR'  UNIT  7»  FORMAT 

5 

C 

AS  DESCRIBED  IN  MAIN  PROGRAM 

6 

C 

7 

C 

NAME. . . . IDENTIFIER 

8 

C 

BOUND. . .ARPAY  OF  BOUNDAPY  POINTS 

9 

C 

ILIM. .. .number  of  boundary  POINTS 

10 

C 

11 

C 

REOUTPES  SUBROUTINES  CLBfJD  « SORT 

12 

C 

13 

C 

14 

DIMENSION  B0UND( 1 ) 

15 

C 

16 

READ<7,10)  NAMEiILiM 

17 

10 

F0RMAT(A6. 1)(»  13) 

18 

C 

19 

C 

20 

II=ILIM+ILIM 

21 

READ (7. 40)  (BOUND ( J) »J=1. II ) 

22 

40 

F0PMAT(2F5.2) 

23 

C 

24 

CALL  CLBnD(BOUND. ILIM) 

25 

call  S0PT(00UND» ILIM) 

26 

C 

27 

RETURN 

28 

END 
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1016*TEI^P(  1 ) .CLBND 


1 

SUBROUT  If  IE  CLBNDfBND.L) 

2 

C 

3 

C 

4 

C 

ROUTINE  TO  PREPARE  BOUNDARY  POINT  ARRAY 

5 

C 

FOR  DEC  SUBROUTINE 

6 

C 

7 

C 

BND ARRAY  OF  BOUNDARY  POINTS 

8 

C 

9 

C 

10 

c 

NO  external  subroutines  REQUIRED 

11 

c 

12 

c 

13 

DIMENSION  RND(l) 

14 

c 

15 

L1=U+L-1 

16 

X1=BND(L1 ) 

17 

L1=L1+1 

18 

Y1=RMD{L1 ) 

19 

X2=nND( 1 ) 

20 

Y2=BNDf2l 

21 

1=2 

22 

L1=L-1 

23 

c 

24 

DO  100  J=1»L1 

25 

J1=J+J-1 

26 

1=1  + 1 

27 

X3=BND( I ) 

28 

1=1  + 1 

29 

Y3=BND( I ) 

30 

AlrANGfXl »Y1 »X2»Y2fX3.Y3) 

31 

Y4=Y2+1 

32 

A2=ANG(X1 » Y1 .X2»Y2»X2»YU) 

33 

IF(A1.GT.A2)  BNDf J1 )=X2+1000 

34 

Xl  = X2 

35 

Yl=Y2 

36 

X2=X3 

37 

Y2=Y3 

38 

100 

CONTINUE 

39 

c 

40 

ol=L+L-l 

41 

X3=RND( 1 ) 

42 

IF(X3.GT.995. ) X3=X3-1000 

43 

Y3=RND(2) 

44 

A1=ANG(X1» Y1 ►X2»Y2»X3»Y3) 

45 

Y4ZY2+1 

46 

A2=ANG(X1 f Y1 »X2»Y2»X2tY4) 

47 

IF(A1.GT.A2)  BND( J1)=X2+1000 

48 

c 

49 

RETURN 

50 

END 
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1016=*-TEMP(  1 ) .SORT 
1 

2 C 

3 C 

4 C ROUTIhiE  TO  SORT  HOUNDARY  POIMTS  SUCH  THAT  Y VALUES 

5 C (EVEN  INDICES)  ARE  IN  DECREASING  ORDER 

6 C 

7 C BOUND.  . .ARRAY  OF  BOUNDARY  POINTS  ( T'.‘/0  ELEMENTS/POINT) 

8 c ILIM. .. .number  of  boundary  points 

9 C 


10 

C 

NO  EXTERNAL  SUBROUTINES  PEQi 

11 

C 

12 

C 

13 

DIMENSION  BOUND ( 1 ) 

14 

c 

15 

ILIM1=ILIM-1 

16 

c 

17 

DO  100  J=l.ILIMl 

18 

JJ=J+J 

19 

JJ1=JJ-1 

20 

J1=J+1 

21 

Bl=BOUND( JJ) 

22 

c 

23 

DO  80  K=Jl t ILIM 

24 

KK=K+K 

25 

B2=R0UND(KK) 

26 

IF(B1-B2)  80*80,40 

27 

40 

CONTINUE 

28 

BOUND (KK)=B1 

29 

B1  = B2 

30 

BOUND (JJ)=B2 

31 

B2=B0UND( JJl ) 

32 

KK1=KK-1 

33 

BOUND (JJl )=P0UND(KK1 ) 

34 

BOUND (KKl )=B2 

35 

80 

CONTINUE 

36 

C 

37 

100 

CONTINUE 

38 

C 

39 

RETURN 

40 

END 
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1016*TEMP( 1) .scale 

1 SUBROUTIME  SCALE (BOUND* ILIM.N.M) 

2 C 

3 C 

4 C ROUTINE  TO  CENTER  IMAGE  IN  NXM  PICTURE 

5 C 

6 C BOUND. . .boundary  POINT  ARRAY 

7 C ILIM. .. .NUMBER  OF  BOUNDARY  POINTS 

8 C N NUMBER  OF  LINES  IN  PICTURE 

q C M NUMBER  OF  COLUMNS  IN  PICTURE 

10  C 

11  C NO  EXTERNAL  SUBROUTINES  REQUIRED 

12  C 

13  C 

14  DIMENSION  BOUNDd  > 

15  C 

16  XSCALE=M/2.0-50 

17  YSCALE=N/2.0-50 

IB  K=0 

19  C 

20  DO  20  J=1*ILIM 

21  K=K+1 

22  BOUND ( K) =XSCALE+BOUND (K) 

23  K=K+1 

24  BOUND(K)=YSCALE+BOUND(K) 

25  20  CONTINUE 

26  C 

27  RETURN 

28  END 
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1016*TEMP( 1 

.DEC 

1 

SUBROUTINE  DEC (BOUND# IMAG»LINE» I . IBND» 

2 

IPICT.NM. ISl ) 

3 

C 

4 

c 

5 

c 

ROUTINE  TO  THRESHOLD  AfiD  PRINT  A LINE  OP  BINARY 

6 

c 

PICTURE#  A (0»1)  PICTURE  IS  STORED  IN  PICT 

7 

c 

8 

c 

BOUND. . .ARRAY  OF  BOUNDARY  POINTS 

9 

c 

IMAG. .. .ARRAY  CONTAINING  LINE  OP  NOISE 

10 

c 

LINE. .. .WORKING  ARRAY  WITH  AT  LEAST  M ELEMENTS 

11 

c 

12 

c 

SAVE  BETWEEN  CALLS 

13 

c 

ILIM. .. .NUMBER  OF  BOUNDARY  POINTS 

14 

c 

15 

c 

16 

c 

IBND....WOPK  ARRAY  WITH  AT  LEAST  M ELEMENTS#  SAVE 

17 

c 

BETWEEN  CALLS 

18 

c 

PICT. .. .ARRAY  FOP  RETURNING  BINARY  PICTURE 

19 

c 

NN CURRENT  LINE  NUMBER 

20 

c 

ISl WORK  ARRAY  WITH  AT  LEAST  M ELEMENTS#  SAVE 

21 

c 

BETWEEN  CALLS 

22 

c 

23 

c 

NO  EXTERNAL  SUBROUTINES  REQUIRED 

24 

c 

25 

c 

26 

DIMENSION  BOUND ( 1 ) # IMAG (1 ) #LINE(1 ) » IBND( 1 ) # 

27 

IPICT(l) # ISl (1) 

28 

REAL  IMAG 

29 

INTEGER  BLNK#ONE#PICT 

30 

DATA  BLNK/IH  /#ONE/1Hy/ 

31 

NR=M* (NN-1 ) 

32 

c 

33 

10 

CONTINUE 

34 

IF(I-ILIM)  20#20#100 

35 

20 

CONTINUE 

36 

II=I+I 

37 

L=B0UND(II) 

38 

IF(L-NN)  100#3n»10n 

39 

30 

CONTINUE 

40 

111=11-1 

41 

Ll=BOUND(  I in 

42 

IP(L1.LT.9R5)  GO  TO  40 

43 

Li=Li-ioon 

44 

ISl(Ln  = l 

45 

GO  TO  50 

46 

40 

continue 

47 

ISl (L1)=0 

48 

50 

CONTINUE 

49 

IBND(L1 )=1 

50 

1=1  + 1 

51 

GO  TO  10 
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52 

C 

53 

100 

continue 

54 

C 

55 

DO  200  J=1  rM 

56 

NNJ=NR+J 

57 

IX=(.IBND(  J)+IS1  ( J)+1.5)/2.0 

58 

I0ND( J)=0 

59 

IF( IMAG( J)+IX-,5)  160.160.170 

60 

160 

continue 

61 

LINE( J)=BLNK 

62 

PICT{NNJ)=0 

63 

60  TO  200 

64 

170 

CONTINUE 

65 

LINE( J)=ONE 

66 

PICT(NMJ)=1 

67 

200 

CONTINUE 

68 

C 

69 

WRITE(6.300)  (LINE( J) . J=1.M) 

70 

300 

F0RMAT(5X. lOOAl ) 

71 

RETURN 

72 

END 

( 

( 

( 


I 


1016*TEMP( 1 ) .BNOTRC 


1 SUBROUTINE  BNDTRC ( PICT » BND • IX » I Y r N. L IM ) 

2 C 

3 C 

4 C ROUTINE  TO  TRACE  IMAGE  BOUNDARY 

5 C 

6 C PICT.... (0»1)  BINARY  PICTURE*  REPRESENTING  IMAGE 

7 C BND RETURNED  IMAGE  POINTS 

fl  C BND(l)  . .STARTING  X CO'^RDIMATE.  SUPPLIED  By  CALLING 

g C ROUTINE*  NUMBER  OF  COLUMNS  TO  LEFT  OF  RIGHT 

10  C EDGE  OF  PICTURE 

11  C BND(2) . .STARTING  Y COORDINATE*  NUMBER  OF  LINES  FROM 

12  C TOP  OF  PICTURE 

13  C IX STARTING  POSITION  OF  SWEEP  RAY*  RELATIVE  TO 

14  C TO  starting  X COORDINATE 

15  C lY STARTING  POSITION  OF  SWEEP  RAy*  RELATIVE  TO 

16  C TO  STARTING  Y COORDINATE 

17  C N NUMBER  OF  ROWS  IN  PICTURE 

10  C LIM. ... .NUMBER  OF  BOUNDARY  POINTS  FOUND 

IP  C 

20  C NO  EXTERNAL  SUBROUTINES  REQUIRED 

21  C 

22  C 

23  DIMENSION  PICT ( N* 1) *BND ( 1) 

24  INTEGER  Xl * Y1 * X * Y * PICT  * XT  * YT 

25  C 

26  X1=BND(1) 

27  Yl=BND(2) 

28  X=X1 

29  Y=Y1 

30  1 = 3 

31  C 

32  10  CONTINUE 

33  IXL=IX 

34  IYL=IY 

35  IF( IX*IY.LE.O.ANO. lY.NE.O)  GO  TO  20 

36  IY=IY-IX 

37  GO  TO  30 

38  20  CONTINUE 

39  IX=IY+IX 

40  30  CONTINUE 


1 

/ 

\ 
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41 

C 

42 

XT=X+IX 

43 

YT=Y-IY 

44 

IF(XT.LE.O.OR. YT.LE.O ) GO 

TO 

10 

45 

IF(PICT(XT»YT) ) 10»10»40 

46 

40 

CONTINUE 

47 

IF(X1.E0.XT.AND.YT.EQ.Y1» 

GO 

TO  50 

48 

BND( I )=XT 

49 

1=1  + 1 

50 

BND( I )=YT 

51 

1=1  + 1 

52 

X=XT 

53 

Y=YT 

54 

IX=IXL-IX 

55 

IY=IYL-IY 

56 

GO  TO  10 

57 

C 

58 

50 

CONTINUE 

59 

LIM=( I-l)/2 

60 

RETURN 

61 

END 

i 

i 

I 
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1 

1016*TEMP( 1 ) 

.PRNTBD 

1 

SUBROUTINE  PRNTBD  (BNDrLIf^*N LIME  ) 

2 

C 

3 

C 

4 

c 

ROUTINE  TO  PRINT  BOUNDARY  CONTOUR 

5 

c 

6 

c 

BND ARRAY  OF  BOUNDARY  POINTS 

7 

c 

LIM NUMBER  OF  BOUNDARY  POINTS 

8 

c 

9 

c 

10 

c 

LINE. .. .WORKING  ARRAY  OF  NOT  LESS  THAN  M ELEMENTS 

11 

c 

12 

c 

NO  external  subroutines  required 

13 

c 

14 

c 

i 

15 

DIMENSION  BND( 1 ) »LINE( 1) 

[ 

1 

16 

INTEGER  STAR.BLNK 

17 

DATA  STAP/1H*/.3LNK/1H  / 

! 

18 

c 

19 

ll=lim+lim 

i 

20 

1=2 

21 

c 

1 

1 22 

DO  100  J=1.N 

23 

c 

24 

DO  20  K=1.M 

; 

( 25 

LInE(K)=BLNK 

26 

20 

CONTINUE 

27 

c 

28 

30 

continue 

1 

29 

IF( I.GT.LL)  GO  TO  70 

; 

30 

L1=BND ( I ) 

[ 

31 

IF(L1.^JE.J)  GO  TO  70 

1 

32 

11=1-1 

1 

33 

L1=BND( 11 ) 

; 

34 

LINE(L1 )=STAP 

, 

35 

1=1+2 

36 

GO  TO  30 

37 

70 

CONTINUE 

, 

38 

WRITE(6.P0)  (LINE(K) .K=1.M) 

I 

39 

80 

FORMAT(SX» lOOAl ) 

40 

100 

CONTINUE 

41 

C 

42 

RETURN 

43 

END 
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1 Ol^^TFMPf 1 ) .P^dGP 


1 

C 

2 

c 

3 

c 

THI9  npQGi'A-'  v'APIO'iS  AMALYSI5  QP  I'-'AftP  DAT^ 

4 

c 

IM  IMF  Foot.'  OF  TIF  ANGLE  P'JLSE  fmnctIOM  EyTPACTED  FP0‘’  1 

5 

c 

THE  I'-'AGE  C'lTLPF 

ft 

c 

7 

c 

IMpilT  T'EF.  iT-'En: 

fl 

c 

1)  EOGF  ^CI^'■^F  on  'iMiT  fl  "ITH  IDENTIFy^P  j? 

CF 

9 

c 

POT’'''^'  Ff  FIFftT  pfco^'D  TM  f Aft.  14)  FC^''AT.  EDGE 

oppiTS 

in 

r 

nn  pf-ap'T-'G  peCC^Cf  P'  '2Fft.2)  fcf’-'AT 

1 ' 

C 

2)  OF  P!Cpfwp"Tc,  !IMIT  5 

12 

C 

3)  fi'F.'tjPP  fF  u-pr ipnc  jPE  fqf  pfiipyfp  COFFPTCIEr'TC 

1 3 

c 

iuitt  ft 

14 

c 

4)  F'"l  TFP  ■'TDYm.  nl^lIT  5 

1 ft 

c 

ft)  filtfp  ■ IOTH  PiCFFvpnT 

16 

c 

1 

17 

c 

NTSC,  at  FACh)  OMTP'  F STEP  INPUT  •^!0•  IF  fO  ''HTP'iT  IS 

1 

in 

c 

QFppjrQ,  oThfP  'IEE  cap  IAGE  PETUPf 

1 

IQ 

c 

20 

c 

OLITP'  'T: 

21 

c 

1)  FPiGF  POIMTft 

2' 

c 

2)  Tt-<ETA(L) 

i 

i 

23 

c 

3)  theta  PPp'P(L) 

j 

24 

c 

4)  thfjA  PPp.’F  aFTE®  FA"S"IA^|  FTLTFP 

25 

c 

ft)  FOi'PI':'’  COff-'IC  PP.'TS  OF  THETA  PRp/'-' 

J 

2ft 

c 

27 

r 

RFfhipfe  ftr 'nROi.'Tp'ES  C0”P1.  ftpah5»  f,ORN.  PLOT.  0 gf 

ILT 

25 

c 

2Q 

c 

30 

DI^'FMftTO^l  FnGF(30  ')  .THETA(30  ) . THPp  ih  ( 30"- ) » TH“PArH  30 

31 

1.7(30'') 

32 

PFAI 

3^ 

DATA  ^T/ftHFTCP  /.FA/ftHHF  / 

34 

r 

3ft 

■'PITFtft.  10) 

3ft 

10 

FOP^'ATf'  ' r,MivqEP  ff  j mcfE'"‘~HTS  . FRFOUE'CIES.  '»  ®- 

37 

PFADfft. 20 ) r .M. ■ .0 ■ 

35 

20 

FORMAT ( ) 

39 

c 

40 

30 

COHTPn  'E 

4] 

READ  (fl.  3ft)  r'Anr.i, 

42 

3ft 

FORMAT  ( Aft  , 1 V , j 1 

4 3 

TF(MAmf.f^.ET)  go  to  300 

4t'. 

IF(M.LF.n)  n=L 

4ft 

Ti=n 

4ft 

C 

47 

no  ftO  JH] .L 

45 

1=11+1 

49 

11=1+1 

50 

RFAD(5.4n)  FOftFf I 1 ,rQGr( jl  ) 

ftl 

40 

FORfAAT(2Fft.21 

52 

50 

COI'TD'HE 

53 

C 

54 

CALI,  envoi  ( L,  FDGF  THETA,  THOR  IM) 

55 

CALL  FTOAMS(f',THOPIM,^-‘»THTOAN) 

56 

THNPV-' 'OOM  ( theta  , r' ) 

57 

jl-|PN'P'''-riORV(  THPRIM,  1') 

50 

C 

• 

50 

wriTE(6,10T)  flAME,L,N 

60 

100 

FOPVAT  ( * 1*  ^ ',A6/'  LFMGTH:  *,I3»5y,*N0.  IMC: 

* »I3) 

61 

c 

62 

READ(5,40n)  05 

63 

IFIOA.on.nO)  GO  TO  115 

64 

LL=L  + I 

65 

WRITE  (6, 110)  (EOGE(J)  ,J=1  ,L'.) 

66 

1 10 

FOOVATf  >0*  ^ EDGE  PO  I^'T5  * / f 1 X , 5 ( • f • , F5 . 2 » • , • , F5 . 2 , 

• ) * ,2y ) ) ) 

67 

c 

68 

1 15 

COLTimtE 

60 

READ(5,40M  OS 

70 

IF(OS.PO.OA)  GO  TO  125 

71 

WPITE(6,120)  (THOTA(J) , J=1,N) 

72 

120 

FORVAT(»n*‘‘  THETA»/f 10F9.2) ) 

73 

WRITF(6,12’) 

74 

122 

FORMAT  (/•  Oi^  f 1 THFTA  VS.  L*/) 

75 

CAL'.  PL0T(THETA,M,H,26) 

76 

C 

77 

125 

CONTIIJ'IF 

78 

C 

70 

DO  700  M';=1,H 

80 

THETA  fM’')  = THPPTV(MH) 

81 

700 

CONTIMI  IE 

82 

C 

83 

READ(5,4nO)  05 

84 

IFIOS.'^o.oA)  GO  TO  1130 

85 

WRITE  (6, 130  ) f THPPIMf  j)  , J=1  .rj) 

86 

130 

format ( ,0*'  • THETAPRIME'/( 10PP.2)  ' 

87 

WRITF(6, 131 ) 

88 

131 

FORMAT  (/•  O'* -k  THETAPRIME  ''S.  L*/) 

80 

CALL  PL0T(THPPIM,1i,’!,26) 

00 

C 

01 

1130 

COMTIMI  IF 

Q2 

READ(5,400)  05 

03 

IF(05.E0.pA)  GO  TO  138 

04 

C 

05 

DO  800  M";=l,5 

06 

READ(5,4no)  OS 

97 

IF(OS.EO.CA)  GO  TO  80'1 

08 

CALL  GFII  T(THETA,M,L,  ",7) 

% 

90 

WRITE  (6, 132)  (7(  j)  , j=i  ,M) 

100 

132 

FOPVATI 'O*-*  '■  filtered  THETAPPI^E  (GAUS'O,  •’  = • 

,P5.2 

lot 

1 /(inF9.2)' 

102 

WRITE(6, 134 ) 

103 

134 

FOpvAT ( / • 0** k filtered  THETAPRIME  VS.  L'/) 

104 

CAl.i  PL0T(7,m,m,26) 

105 

W="’  + D''’ 

106 

800 

COMTirJUE 
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in? 

C 

lOR 

138 

COMTIMUE 

109 

PEAD(5.40n5  GS 

110 

IF(QS.EG.GA)  GO  TO  300 

111 

C 

112 

CrABS(THT9AM( 1 ) ) 

113 

WPITE(6.140)  THTPAMdl.C 

114 

140 

FOPMATt  *0**  FOUPIEP  COEF^^  IC  IEMT5 ' /I  OX  . * W * » 1 OX  » • A • i lOX  » ’ B • 

115 

110X»*C'/10X»'0’t5X.Fll,4fllX*F11.4) 

116 

C 

117 

DO  145  J=1»M 

HR 

J1=J+J 

119 

J2=J1+1 

120 

A=THTRA^J(  JH 

121 

B=THTRA^'(  J2) 

122 

C=50PT( A*A+B*B) 

123 

WRITE(6*142)  J.ArB.C 

124 

142 

FOPMATtQX*  I2*5X.3Fn  ,4) 

125 

145 

continue 

126 

C 

127 

WRITE  (6  f 150)  THfJRMrTHPNPM 

128 

150 

FORMAT  ( 'O’k^:  f THNRM:  »»F7,2»'  THPMRM!  »fF7.2) 

129 

C 

130 

300 

COMTIMUE 

131 

STOP 

132 

400 

FORMAT ( A6) 

133 

END 
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1016*TEMP( 1 ) .COMPl 


1 

SUBROUTINE  COMPl ( L » EDGE » N» THETA . THPRIM ) 

2 

C 

3 

C 

4 

C 

ROUTINE  TO  COMPUTE  BOU^lnAPY  ANGLE  AND  ITS 

5 

C 

DERIVATIVE  AS  A PUNCTION  OP  TME  BOUNDARY 

6 

C 

LENGTHr  FROM  THE  COORDINATES  OF  THE  BOUNDARY 

7 

C 

fl 

c 

L length  of  houndary 

9 

c 

EDGE. ..  .boundary  CO^'ROINATES  IN  CLOCKWISE 

10 

c 

oPDERf  EX.  x(io),Y(ini  located  at 

11 

c 

EDGE(19) . (20) 

12 

c 

N number  of  EDGE  POINTS 

13 

c 

THETA. . .COMPUTED  ANGLE  FUNCTION 

14 

c 

THPRIM. .COMPUTED  DERIVATIVE  OF  THETA 

15 

c 

16 

c 

REQUIRES  STANDARD  FORTRAN  SUBROUTINES  ONLY 

17 

c 

la 

c 

19 

DIMENSION  FDGE(l) *THETA(1) .THPRIM(l) 

20 

A=ia0/3. 1415Q26 

21 

1 = 2 

22 

X1=EDGE ( 1 ) 

23 

Y1=EDGE(2) 

24 

c 

25 

L1=L-1 

26 

c 

27 

DO  50  J=1 .Ll 

2fl 

1=1  + 1 

29 

X2=EDGE ( 1 ) 

30 

1=1  + 1 

31 

Y2=EDGE( I) 

32 

YD=Y2-Y1 

33 

XD=X2-yi 

34 

THT=ACOS(XD/SORT(XD+XD+YD*yD) ) 

35 

IF(YD.GT.O)  THT=-THT 

36 

THPRIM( J)=THT*A 

37 

Xl  = X2 

3a 

Yl=Y2 

39 

50 

CONTINUE 

40 

c 

41 

X2=EDGE(1) 

42 

Y2=EDGE(2) 

43 

YD=Y2-Y1 

44 

XD=X2-yi 

45 

THT=AC0S(XD/S0PT(XD*XD+YD*YD) ' 

46 

IF(YO.GT.O)  TH'^  = -THT 

47 

THPRIM(L)=THT+A 

218 


4fl 

C 

49 

C 

N0RMALI7E:  THETA 

50 

c 

51 

S=FLOAT(L)/N 

52 

SJ=-5  • 

53 

c 

54 

DO  100  J=1»N 

55 

SJ=S+5J 

56 

I=5J+1 

57 

THETA ( J) =THPRIM( I ) 

5fl 

100 

CONTINUE 

59 

c 

60 

THTrTHETA ( 1 ) -THETA ( N) 

61 

lF(THT.GE.179.9oa)  JHI 

62 

iF(THT.LT.-ian.oon  th 

63 

THPRIMd  )=THT 

64 

c 

65 

DO  150  J=2»N 

66 

I = J-1 

67 

THT=THETA ( J) -THETA( 

68 

IF(THT.GE.179.Qi5«) 

69 

IFfTHT.LT.-lflO.nul ) 

70 

THPRIM( J! rTHT 

71 

150 

CONTINUF 

72 

C 

73 

RETURN 

74 

END 

THT=THT-3ftO 

THT=THT+360 
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1016*TEMP( 1 ) .FTPANS 


1 

SUBROUTIME  FTRArJS  ( M*  F r M.  FT  ) 

2 

C 

• 

3 

C 

4 

C 

ROUTINE  TO  CALCULATE  THE  FOURIER  COEFFICIENTS 

5 

C 

OF  F»  ASSUMING  AN  INTERVAL  LENGTH  OF  TWO  PI 

6 

C 

7 

C 

8 

C 

9 

C 

10 

C 

FT COEFFICIENT  VALUED  RETURNED.  IN  ORDER  OF  INCREASING 

11 

C 

FREQUENCY  (COS. SIM) 

12 

C 

13 

c 

REQUIRES  STANDARD  FORTRAN  SUBROUTIN£S  ONLY 

14 

c 

15 

c 

16 

DIMENSION  F(  1 ) .FT(1 ) 

17 

W=6.28318S31/N 

18 

FT1=0 

19 

c 

20 

DO  50  J=1 .N 

21 

FT1=FT1+F( J) 

2? 

50 

CONTINUE 

23 

C 

24 

FT(1 )=FTl/6. 283 18531 

25 

WT=0 

26 

C 

27 

DO  100  J=1.M 

28 

FT1  = 0 

29 

FT2=0 

30 

W T = W T + W 

31 

WTT=0 

32 

C 

33 

DO  70  1=1 .N 

34 

WTT=WT+WTT 

35 

F1=F(I) 

36 

FT1=FT1+C0S(WTT)+F1 

37 

FT2=FT2+SIN<WTT )*F1 

38 

70 

CONTINUE 

30 

C 

40 

JJ=J+J 

41 

FT(JJ)=FTl/3. 141592654 

42 

JJ=JJ+1 

43 

FT{ JJ)=FT2/3. 1415P2654 

44 

100 

CONTINUE 

45 

c 

46 

RETUR^' 

47 

END 
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MORM 


1016*TEMP(1 ) . 

1 FUNCTION  NORM(F.N) 

2 C 

3 C 

4 C ROUTINE  TO  CALCULATE  LI  NORM  OF  F FOR  AN  INTERVAL  LENGTH 

5 C OF  ONE 

6 C 

7 C F ARRAY  OF  FUNCTION  VALUES 

8 C N NUMBER  OF  COMPONENTS  OF  F 

9 C 

10  C REQUIRES  STANDARD  FORTRAN  ROUTINES  ONLY 

11  C 

12  C 

13  REAL  NORM 

14  DIMENSION  F(l) 

15  NOPM=0 

16  C 

17  DO  10  J=1»N 

18  N0RM=N0RM+ABS(F( J) ) 

19  10  CONTINUE 

20  C 

21  NORM=NORM/N 

22  RETURN 

23  END 
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SUBROUTINE  PLOT ( Y » I Y » N. M ) 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 


C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 


ROUTINE  TO  PLOT  VECTOR  OF  Y VALUES  ON  LINE  PRINTER 

Y ARRAY  OF  VALUES  TO  BE  PLOTTED 

N NUMBER  OF  VALUES  IN  Y 

M NUMBER  OF  LINES  TO  BE  USED  FOR  Y AXIS 

REQUIRES  ROUTINES  SRT  A PLTl 


DIMENSION  X(250WY(n  .FOPM(4) 

DATA  F0RM/6H(12X»  .6H1 0 ( 2X » . 6HF5 . 1 » »6H3X))  / 

X(1  ) = 0 
XT=0 


19 

DO  20  J=2»IY 

20 

XT=XT+1 

21 

X( J)=XT 

22 

20 

CONTINUE 

23 

C 

24 

CALL  SRT(X»Y» IYrXMIN»XMAX) 

25 

C 

26 

XS=(N-1 )/(XMAX-XMlN) 

27 

YMIN=Y( lY) 

28 

YS=<M-1)/(Y(1)-YMIN) 

29 

C 

30 

CALL  PLTl (X»Y» IY»NrM»XS»YSf XMIN»YMIN» 

31 

110»5» 1H*»F0RM) 

32 

RETURN 

33 

END 

i 


J 


: 

I 

I 

i 

1 

( 
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1016*TEMP( 1 ) .SRT 


1 SUBROUTINE  SRT ( X * Y » IX » XMIN. XMAX ) 

2 C 

3 C 

4 C ROUTINE  TO  SORT  DATA  AND  FIND  MAXIMUM  A MINIMUM  X VALUES 

5 C FOR  PLTl 

6 C 

7 C X X VECTOR  RETURNED  IN  ORDER  CORRESPONDING  TO  Y VECTOF 

8 C Y Y VECTOR  RETURNED  IN  DECREASING  ORDER 

9 C IX NUMBER  OF  COMPONENTS  IN  X AND  Y 

10  C XMIN. .. .MINIMUM  X VALUE 

11  C XMAX. .. .MAXIMUM  X VALUE 

12  C 

13  C NO  SUBROUTINES  REOUIRED 

14  C 

15  C 

16  DIMENSION  X(l) .Y(l) 

17  C 

18  XMIN=X(1) 

19  XMAX=XMIN 

20  IXI=IX-1 

21  C 

22  DO  100  J=1.IX1 

23  J1=J+1 

24  XT=X(J) 

25  YT=Y(J) 

26  C 

27  DO  50  JjrJl. IX 

28  YTT=Y(JJ) 

29  IF( YTT.LT.YT)  GO  TO  50 

30  Y(JJ)=YT 

31  • YT=YTT 

32  YTT=X(JJ) 

33  X(JJ)=XT 

34  XT=YTT 

35  50  CONTINUE 

36  C 

37  X(J)=XT 

38  Y(J)=YT 

39  IF(XT.GT.XMAX)  60  TO  60 

40  IF(XT.LT.XMIN)  XMIN=XT  I 

41  GO  TO  100  ' ! 

42  60  CONTINUE  ! 

43  XMAX=XT  I 

44  100  CONTINUE  ' 

45  C 

46  XT=X(IX) 

47  IF(XT.6T.XMAX)  XMAX=XT 

48  IF(XT.LT.XMIN)  XMIN=XT 

49  RETURN 

50  END 
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1016*TEMP( 1 ) 

.PLTl 

* 

1 

SUBROUTINE  PLTl (X»Y* IX » N. M* XS» YS» XMINr YMIN» 

2 

lINCXf INCY»CHAR»F) 

3 

C 

4 

C 

5 

C 

ROUTINE  FOR  LINE  PLOT  OF  DATA  POINTS  GIVEN  IN 

6 

C 

X AND  Y arrays*  AS  RETURNED  BY  SRT  SUBROUTINE 

7 

C 

8 

c 

9 

c 

10 

c 

IX NUMBER  OF  POINTS  TO  BE  PLOTTED 

11 

c 

12 

c 

13 

c 

XS l/( INCREMENT  IN  X CORRESPONDING  TO  1 CHARACTER) 

14 

c 

YS l/( INCREMENT  IN  Y CORRESPONDING  TO  1 LINE) 

15 

c 

XMiNt .. .minimum  X value 

16 

c 

YMIN, .MINIMUM  Y VALUE 

17 

c 

INCX. .. .NUMBER  OF  CHARACTERS  BETWEEN  VALUE  LABELS  ON  X AXIS 

18 

c 

INCY. .. .NUMBER  OF  LINES  BETWEEN  VALUE  LABELS  ON  Y AXIS 

19 

c 

CHAR. .. .CHARACTER  TO  BE  USED  FOR  PLOTTING 

20 

c 

21 

c 

22 

c 

NO  EXTERNAL  SUBROUTINES  REQUIRED 

23 

c 

24 

c 

25 

DIMENSION  X(l) .Y(l) .GRAPH (100) .F(l) 

26 

REAL  ICH. minus* IT 

27 

DATA  PLUS* ICH»MINUS*BLANK/1H+,1HI.1H-*1H  / 

28 

c 

29 

1 = 1 

30 

M1=M-1 

31 

INCX1=INCX-1 

32 

c 

33 

DO  100  J=1*M1 

34 

IT=ICH 

35 

IF( (M-J)/INCY»INCY.EQ.M-J)  IT=PLUS 

36 

GPAPH( 1 )=IT 

37 

c 

38 

DO  20  JJ=2.N 

39 

GRAPH( JJ)=BLANK 

40 

20 

CONTINUE 

41 

c 

42 

GRAPH(62)=1H. 

43 

25 

CONTINUE 

44 

IF(I.GT.IX)  GO  TO  50 

45 

IF(M-IFIX( .5+YS*(Y(I)-YMIN) ) .NE.J)  GO  TO  50 

46 

IXT=1+XS* (X ( I ) -XMIN) 

47 

GRAPH( IXT)=CHAR 

48 

1=1  + 1 

49 

GO  TO  25 
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I 


50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 
60 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
01 
02 
83 

04 

05 
86 
07 
00 
09 

90 

91 

92 


C 

50  CONTINUE 

IF( IT.EQ.PLUS)  GO  TO  70 
WRITE(6»60)  (GRAPH( JJ) , jjrl,N) 

60  FORMAT( 17X» lOOAl) 

GO  TO  ion 
C 

70  CONTINUE 

YT= (M-J) /YS+YMIN 

WRITE(6»80)  YT»  fGRAPH(JJ) »JJ=1»N) 
80  FORMAT(5X»E10.4,2X» lOOAl) 

100  CONTINUE 

C 

DO  120  J=l.NfINCX 
C 

DO  110  vJJ=l»rNCXl 
GRAPH( JJJ)=MINU5 


110 

CONTINUE 

c 

GRAPH/ J)=PLUS 

120 

CONTINUE 

C 

125 

CONTINUE 

IF(I.GT.IX)  GO  TO  150 

IF(M-IFTX( .5+YS*(Y ( I )-YMIN) ) .NE.M)  GO  TO  150 
IXT=1+XS*(X( I)-XMIN) 

GRAPH/ IXT)rCHAR 
1=1  + 1 
GO  TO  125 
C 

150  CONTINUE 

WRITE (6 #80)  YMIN» ( GRAPH (JJ) »JJ=1*N) 

1 = 0 
C 

DO  200  J=1»N.INCX 
1=1  + 1 

GRAPH/ I)=XMIN+( J-1)/XS 
200  CONTINUE 

C 

WRITE(6»F)  (GRAPH/ J) » J=l» I ) 

RETURN 

END 
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1016*TEMP( 1 ) .GFILT 


1 

SUBROUTINE  GFILT ( Y » N» L * W » Z ) 

2 

C 

3 

C 

4 

C 

ROUTINE  FOR  A GAUSSIAN  LOW  PASS  FILTER 

5 

C 

6 

C 

Y INPUT  FUNCTION 

7 

C 

M NUMBER  OF  INCREMENTS  IN  Y 

8 

C 

L LENGTH  OF  DOMAIN  OF  Y 

9 

C 

W WIDTH  OF  FILTER.  STANDARD  DEVIATION  OF  WINDOW 

10 

C 

2 filtered  response 

11 

C 

12 

C 

NO  EXTERNAL  SUBROUTINES  REQUIRED 

13 

C 

14 

C 

15 

DIMENSION  Yd)  fZ(l)  .5(500) 

16 

C 

17 

AT=L/W/N/SQRT(6.28318 1 

18 

N1=N+1 

19 

N2= 15*W 

20 

W2=2*W»W 

21 

C 

22 

DO  20  J=1.N2 

23 

S(  J)=AT*EXP<-J-*J/W2) 

24 

20 

CONTINUE 

25 

C 

26 

DO  60  J=1.N 

27 

2T=Y(J)*AT 

28 

C 

29 

DO  40  KK=1.N2 

30 

K=KK- (KK-1 ) /N*N 

31 

K1=J+K 

32 

K1=K1-{K1-1)/N*N 

33 

K2=N+J-K 

34 

K2=K2-(K2-1 ) /N*N 

35 

ZT=ZT  + S(KK)'.t(Y(Kl)+Y(K2)  ) 

36 

40 

CONTINUE 

37 

C ' 

t 

38 

Z(J)=ZT 

39 

60 

CONTINUE 

40  ' 

C 

41 

RETURN 

42 

END 
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44 

100 

FOWk'AT(Ab.lX»IJ/l?FS.P)  ) 

4b 

ELiUFILE  O 

4t) 

c 

47 

CALI.  b')PT  (liriD.  II  IM) 

40 

write (6.200 ) NAME 

4g 

<10  0 
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1U16*MISC 


lur  ic 


1 

SlJdPOlJTI'JE:  I9PIC  (tJl 

r 

c 

4 

C 

4 

C, 

THl^>  P'ffiiTINF  WE. AMS  FROM  TApr 
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f. 

L' 

C 

PAHAMt  rt-  KS: 

7 

C 

ni FI  PST  KUv 

C 

rj9 l.AST  PO^. 
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t 

•'1 FIRST  COl  UMJ 

li 

C 

■•V LAqj  COLiiMM 

11 

L 

OICT . . . . APP AY  KtTUFNING  P 

1^' 

C 

IP .imOMHEH  UF  ffUtfS  Ir 

13 

L 

1 ''PFL...T.V&  FLEM^NT  APRA't 

lu 

C 
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ITi 
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L 
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17 
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!■ 

C 
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11 
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^.•1 

C 
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lit  If  Of  P PICT  » OUT 

^ •( 

L 

c4 

JtAX  = ii 

d.' 
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€.t 

L 

d 7 

Cali  fluTAPI  1 1 ,LAPt.i.) 

tie 

CALL  Fl.PTAPln) 

d\- 

CALL  FlOTAP(3) 

Jl; 

CALL  FlUTAP ( 1 ) 

31 

t 

32 

L = iMl+rjF*24l 

33 

CALL  FlpTAP(9,L) 

34 

tjn=L.p-Fi  -'Ml 

3S 

c 

3t 

no  '.r,  o=’*Ajn 

37 

CALL  FLl  AF  (7, 114  , lN,r)UI  ) 

call  uni  ACK  1 Uj,uiiT*R2»fl) 

39 

T =0 

^0 

c 

41 

on  30  1 =M1 »ML 

4? 
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43 
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4 4 
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4f 
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47 
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49 
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C 
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SECTION  9 


SAMPLE  TRACKING  IMAGERY 


Twenty  video  images  have  been  digitized  at  512  x 240  pixels,  8-bits  per 
pixel,  and  are  stored  on  magnetic  tape  and  on  floppy  disks  at  WSMR.  These 
and  future  digitized  images  to  be  taken  from  sequential  video  frames  can 
be  made  available  upon  request.  The  image  names  are  as  follows: 


MIlVl  - Missi 
MI1V2  - Missi 
MI1V3  - Missi 
MILV4  - Missi 
MI2V1  - Missi 
MI2V2  - Missi 
MI2V3  - Missi 
MI2V4  - Missi 
MI3V1  - Missi 
MI3V2  - Missi 
PLIVI  - Plane 
PL1V2  - Plane 
PL1V3  - Plane 
PL2V1  - Plane 
PL2V2  - Plane 
PL2V3  - Plane 
PL2V4  - Plane 
CRIVI  - Cruis 
CR1V2  - Cruis 
CR1V3  - Cruis 


le  1 , View  1 
le  1 , View  2 
le  1 , View  3 
le  1 , View  4 
le  2,  View  1 
le  2,  View  2 
le  2,  View  3 
le  2,  View  4 
le  3,  View  1 
le  3,  View  2 
1 , View  1 
1 , View  2 

1 , View  3 

2,  View  1 
2,  View  2 
2,  View  3 
2,  View  4 

e Missile  1 , 
e Missile  1 , 
Missile  1 , 


(Before  take-off) 


(Before  take-off) 
(Field  1) 

(Field  2 of  MI2V3) 


View  1 
View  2 
View  3 


Figures  9.1  through  9.20  are  gray  level  half-tone  copies  of  these  20  images 
produced  on  the  Tektronix  4014  display  terminal  using  WRP512,  a 17  gray 
level  display  program.  A gray  level  histogram  of  each  digitized  image  is 
also  included  as  part  b of  each  figure. 
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Figure  9.1a.  Grey  Scale  Display  of  nissile  1,  View 
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Figure  9.1b.  Histogram  of  Missile  1,  View 
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Figure  9.4d.  Grey  Scale  Display  of  Missile  1,  View 


Figure  9.4u.  Histogram  of  Missile  1,  View 
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Figure  9.5b.  Histogram  of  Missile  2,  View 
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Figure  9.6b.  Histogram  of  Missile  2,  View 
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Figure  9,8b.  Histogram  of  Ilissile  2,  View  4 


Figure  Q.'Ja.  Grey  Scale  Display  of  Missile  3,  View 


Figure  9.9b.  Histogram  of  Wssile  3,  View 


Figure  9.1ja.  Grey  Scale  Display  of  flissile  3.  View 


figure  9.10b.  tiistogram  of  flissile  3,  View 
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Figure  y.llb.  Histograrr  of  Plane  1,  View 


Figure  9.12a.  Grey  Scale  display  of  Plane  1,  View 


Figure  9.12b.  Histogram  of  Plane  1,  View 


Figure  9.14b.  Histogram  of  Plare  2,  View 


f^igjre  9.153.  Grey  Scale  Display  of  Plane  2,  View 
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Figure  9.15b.  Histogram  of  Plane  2,  View 


Figure  Grey  Scale  Sisplay  of  Plane 
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Figure  9.16b.  Histogram  of  Plane  2,  View 


f^igure  9.17a.  Grey  Scale 


Figure  9.17b. 


NtSTOOIMM  or  THE  FILE  - MC  ICMluer.DAT 
nc  iwc*  OF  <jiev  lcucls  in  « tin  is 
nc  OWIfMTC  UAS  tCALCO  I 'I 


Figure  9.19b.  Histogram  of  Cruise  Flissile  1,  View 
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